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GENENG - A PROGRAM FOR CALCULATING DESIGN AND OF-DES1GN 


PERFORMANCE FOR TURBOJET AND TURBOFAN ENGINES 
by Robert W. Koenig and Laurence H. Fishbach 
Lewis Research Center 

SUMMARY 

A digital computer program titled GENENG is described. The original version of 
the computer program is titled SMOTE (SiMulation Of Turbofan Engine) and was devel- 
oped by the Turbine Engine Division of the Air Force Aero Propulsion Laboratory, 
Wright- Patterson Air Force Base, Ohio. SMOTE is capable of calculating only turbofan 
design and off-design performance using specific component performance maps. 

GENENG calculates steady-state design and off-design turbofan and one- and two-spool 
turbojet engine performance. Discussed in this report are changes to SMOTE which 
enable the user to do jet engine calculations of a general nature, thereby allowing the 
mission analyst a greater freedom in selection of engine design characteristics. Typi- 
cal of these changes is an automatic redesign of fan and compressor pressure ratios 
when the static pressures do not balance at the mix point for mixed-flow turbofans. A 
convergent- divergent nozzle performance map addition is shown. Other changes that 
permit greater flexibility for generalized cycle studies for GENENG are described. 

Included as an appendix to the report is a complete FORTRAN IV listing of GENENG. 
Sample results and input explanations are included for two-spool turbojet, one-spool 
turbojet, and two-spool turbofan engines operating at design and off-design conditions. 


INTRODUCTION 

For preliminary as well as in-depth studies it is often necessary to study a broad 
range of engines operating at both design and off- design conditions in order to find an 
efficient airframe /engine combination. The spectrum of flight conditions through which 
an engine must operate will strongly affect the optimum design parameter for that engine. 

The SMOTE code (SiMulation Of Turbofan Engines), discussed in references 1 and 2, 



provided a computer program having off- design- point calculation capability for either 
existing engines or theoretical ones - a major advance. Theoretical engines are simu- 
lated by scaling component performances from existing engines to the design conditions 
of the theoretical engines. 

GENENG (GEN eralized ENGi ne), a computer code derived from SMOTE, was writ- 
ten to improve the versatility of SMOTE. Among the changes made are as follows: 

, (1) One- and two-spool turbojets can be calculated, as well as turbofans. 

(2) Afterburner performance maps can be used. 

(3) Nozzle performance maps can be used. 

(4) Fan and compressor pressure ratios are automatically redesigned for mixed- 
flo-w turbofans if the static pressures at the mix point do not match. 

(5) Duct combustor pressure losses are calculated. 

(6) A new method of entering data into the program is used. 

A derivative program from GENENG, called GENENG II, is reported in a companion 
report to this one (ref. 3). GENENG n calculates performance of two- or three-spool 
front- or aft-fan turbofan engines with as many as three nozzles (or airstreams). 

These programs have proven to be very versatile, and minor changes to them can 
greatly increase the number of engine configurations that can be studied. As an example, 
GENENG was used to study nuclear-powered turbofan engines. This was accomplished 
by adding a heat-exchanger subroutine as a substitute for the combustor subroutine to 
simulate the use of nuclear power to raise the temperature of the air entering the first 
turbine. 

In this report are included illustrative examples of the use of GENENG to study 
various one- and two-spool turbojets and separate- and mixed-flow turbofans. 

GENENG is available from the authors upon request. This FORTRAN IV program 
can be used by computing centers having an IBM 7094 Mod 2 computer. With modifica- 
tions, the program can be used on all machines that have a FORTRAN compiler. 


THERMODYNAMIC ANALYSIS OF ENGINE TYPES 

All thermodynamic properties of air and gas are calculated by considering variable 
specific heats and no dissociation. The air and gas property tables of reference 4 were 
curve fit and are used herein. 

The following discussion presents the thermodynamic analysis of the engine cycles 
that can be studied using GENENG. 
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Two-Spooi Afterburning Turbofan 


The basic engine, a two-spool turbofan, is shown in figure 1. All other engine 
types are treated as variations of this basic engine. Free-stream conditions exist at 
station 1 and are determined by using the U. S. Standard Atmosphere Table of 1962 
(ref. 5). The conditions at station 2 are determined by flight speed and inlet recovery. 

GENENG compressor maps work with corrected values of airflow. At the entrance 
to the fan, the corrected airflow WAp c is 


WA 


F,c 


WA^/518. 668 

V P SI£ 


( 1 ) 


where Pg and Pg L g are in atmospheres and Pg L g equals 1.0. All symbols are de- 
fined in appendix C. Some symbols are formed as the combination of other symbols; 
thus WA is airflow, F is for fan, and c when following a compound symbol means 
corrected. Station numbers are defined on the appropriate figure. 

All the fan air WAp is compressed by the fan giving rise to conditions at station 21. 
The power required to do this is 


Fan power = WAp x (Hgj - Hg) (2) 

Some fan air may be lost to the cycle as fan bleed Blp, which is expressed as a fraction 
of the fan airflow 


Blp - PC B1) p x WAp 

The corrected airflow into the core compressor is 


WA 


C, c 


WA cV T 2l/ 518 - 668 


(3) 


(4) 


The remaining air goes through the fan duct where some leakage from the core air may 
also enter (see eq. (11)). 


WA d = WAp - Blp - WA C + B1 du 


(5) 


The air which may be heated by a duct burner to a temperature T 24 undergoes a pres- 
sure drop 
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( 6 ) 



1 - 


(f) 

\ * /ductJ 


The air would have been heated by the addition of fuel, which can be expressed as a fuel- 
air ratio so that 


WG 24 = WA 23 X t 1 + <*A> 23 ] P) 

The gas is then either expanded through a nozzle (station 29) to produce thrust or is 
mixed with the core air as shown in figure 2 (mixed- flow turbofan). The bypass ratio of 
the engine is defined by 


BYPASS = 


WA 


D 


WA, 


( 8 ) 


The air continuing into the core is compressed to conditions at station 3. The power re- 
quired is 


Compressor power = WA^, x (Hg - Hgj) = WAg x (Hg - Hg^) (9) 

Some core bleed air Bl^ may be used for turbine cooling. Some of the air is put 
back into the cycle into each of the two turbines, and some is lost to the cycle as over- 
board bleed or leakage into the fan duct. 


Bl c = 


Bl 


DU 


Bl, 


OB 


Bl 


HP 


Bl 


LP 


Since Blj^j + B1 q B + Blgp + Bl^p = Bl 
+ PCgj -^p must be equal to 1.0. 

The remaining air is 


PC B1, C X WA 3 

(10) 

PC B1, DU X B1 C 

(11) 

PC B1, OB X B1 C 

(12) 

PC B1, HP X B1 C 

(13) 

PC B1, LP X B1 C 

(14) 

c , the sum of PC B1 ^ DU + PC B1 ^ QB + 

PC B1, HP 


WA 4 = WAg - Bl c 


(15) 
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and is heated to a turbine inlet temperature T 4 while undergoing a combustor pressure 
drop (AP/P)qq MB - The fuel required to do this is expressed as a fuel-air ratio (f/a) 4 
so that the weight of the gas entering the first (high pressure) turbine WG 4 can be ex- 
pressed as 


WG 4 = WA 4 x 


[l + (f/a)J 


(16) 


This gas is then expanded through the turbine to conditions at station 5. The enthalpy at 
station 5 is first calculated by making a power balance, since this turbine drives thb 
compressor and supplies any work extracted (HPEXT). By using equation (9), 


WG 4 x (H 4 - H g ) = WA g X (Hg - H 21 ) + HPEXT 
hi addition, the physical speeds must match 


(17) 


n hp, TURBINE “ n comp 


(18) 


If high-pressure-turbine bleed air Bl^p is added back into the cycle at this point, 
Hg must be readjusted. 


Similarly, 


H 5 = 


(B1 hp x Hg) + WG 4 Hg (Bljjp X Hg) + WG 4 Hg 


WG 4 + Bljjp 


WG C 


N, 


H 55 = 


WGg + Bl Lp 


WG 


55 


(19) 


V * <»21 - H 2> 

(20) 

= n pan 

. (21) 

<bi lp x h 3 ) + wg 5 h 55 

(22) 


For non- mixed-flow turbofans, the gas flow at station 6, WGg, is identical with that 
at station 55, WGgg. For mixed-flow turbofans, the air in the fan duct is added. 


WG 8 = WG 55 + WA d 


(23) 


Mixed-flow turbofans additionally require that the static pressures at station 25 and at 
station 55 (fig. 2) match. 

PS 55 = PS 25 <24> 
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The gas flow WGg then may be heated by an afterburner to a gas temperature and 
may undergo a pressure drop. 

P 7 = P 6 [* ' ( AP / p ) AFTER BURNEB,] ( 25 ) 

And the gas flow rate would be increased by any fuel burned. 

WG ? = WG 55 + WFA 

The gas is then expanded through the nozzle (station 9) to produce the remainder of the 
engine thrust. 


Two -Spool Turbojet 

The two-spool turbojet is equivalent to a two-spool turbofan with a BYPASS of zero. 
This engine is shown in figure 3. In calculating this type of engine, there is no fan duct 
and the air entering the inner compressor is the same as the air entering the inlet less 
any bleed. 


WA C = WA f - B1 f (26) 

The thermodynamic calculations proceed identically to the previous case, the two- 
spool turbofan case, except that any equations referring to the fan duct are eliminated. 


One-Spool Turbojet 

The one-spool turbojet is shown in figure 4. As can be seen, to simulate this en- 
gine the inner compressor and its driving turbine are eliminated. That is, stations 21 
and 3 become identical and stations 4 and 5 become identical. 

The only calculation changes required therefore are (1) to eliminate any thermody- 
namic equations relating to the fan duct and the inner spool of the two-spool turbofan 
engine and (2) to add the horsepower extracted to the power requirements of the outer 
turbine. 


BALANCING TECHNIQUE 


An off- design engine cycle calculation requires satisfying various matching con- 
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straints (rotational speeds, airflows, compressor and turbine work functions, and nozzle 
flow functions) at each specified operating condition. GENENG internally searches for 
compressor and turbine operating points that will satisfy the constraints. It does this 
by generating differential errors caused by small changes in the independent variables. 
The program then uses a matrix that is loaded with the differential errors to solve for 
the zero-error condition. This procedure is known as the Newton-Raphson iteration 
technique. 

For the two-spool turbofan or turbojet engines a solution for a set of six simultane- 
ous linear algebraic equations is obtained; for the one-spool turbojet a set of three si- 
multaneous linear equations is solved. The six independent variables selected are 

ZF Ratio of pressure ratios of outer compressor (fan) along a speed line, 

Zf = (Pressure ratio along speed line) - (Low pressure ratio on speed line) 
(High pressure ratio on speed line) - (Low pressure ratio on speed line) 

PCNF Percent fan speed or turbine inlet temperature 
or T4 

ZC Ratio of pressure ratios of inner compressor along speed line; calculated 

same as ZF 

PCNC Percent compressor speed or turbine inlet temperature 
or T4 

TFFHP Inner (high pressure) turbine flow function, 

TFFLP Outer (low pressure) turbine flow function, WG^^Tg^/Pg 

ZC, PCNC, and TFFHP are not used for the one-spool turbojet. 

The program initially selects new (perturbed) values for the variables, based on the 
design values. It is then possible to proceed through the entire engine cycle, where six 
(or three) errors are generated. The initial values of the six (or three) variables and 
six (or three) errors are base values. 

As per reference 1, the partial differential equations for E - f(v) are 


■*max 



for i going from 1 to j mo ^ where j„__ is 6 for two-spool engines or 3 for one-spool 

max iuaA 

turbojets; E is an error; V is a variable; and 3E-. is the change in E. caused by a 

1J 1 

change in Vj. 

The assumption of a small change in the variable results in the following approxima- 
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tions (B refers to a base value): 


dE = E - EB 

(28) 

dV = V - VB 

(29) 


9E _ E 

dv v 


(30) 


With these approximations and the knowledge that E should equal zero for the balanced 
engine, the set of partial differential equations (eq. (27)) reduces to 


E. - EB. = 
x x 



ae. . 

— u dVj = -EB. 


AV. 


3 


(31) 


for i going from 1 to j max> 

Thus the calculations made with the perturbed variables are used to compute aE /aV, 
and equation (31) is solved for dVj. The variables V are then given new values from 

Vj = V.B + dV. (32) 

If the ermine cycle calculations were linear functions, the engine would balance 
(errors within some allowable limits) with the new values of the variables. However, 
this is not the case, and it is usually necessary to repeat the process of changing each 
variable by a small amount for each pass. A change in each error because of the small 
change in the variable is calculated for each pass, where the new values become base 
values. This process occurs several times before a balance is obtained. 

A subroutine (MATRIX) to determine the solution of a matrix is used to solve the set 
of differential equations. After each pass through the engines, a matrix array is loaded 
with the appropriate values; after a number of passes equal to 1 + j (base value plus 
perturbation on each of the independent variables), the matrix subroutine is used to solve 
the matrix. This solution (E within some allowable limit) yields the correct values of 
the independent variable and satisfies all the component matching constraints. 

The most-often-used independent variable and the differential errors for four types 
of engines that can be run on GENENG are listed in table I. 
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SUBROUTINES AND INPUTS FOR ENGINE PERFORMANCE CALCULATIONS 


Two forms of data are supplied to GENENG. Some data, such as all the constants 
and component map data, are in the form of a BLOCK DATA subprogram. The varying 
data are supplied at execution time by the use of input data cards. 

The FORTRAN listings of GENENG are presented in appendix A. The function and 
description of the subroutines follows in the next section. 


GENENG Subroutine Functions and Descriptions 

A flow chart of the computer program with the subroutines is shown in figure 5. The 
functions of the subroutines are listed here and the purpose of each described. 


GENENG Dummy main program to initiate the calculations and cause the input of the 
controlled output variables. Because of the looping between subroutines, 
control is never transferred back to this routine. 

ENGBAL Main routine. Controls all engine balancing loops; checks tolerances and 
number of loops and loads matrix; calls input. 

GUESS Determines initial values of independent variable (see table I) at each point. 

MATRIX Solves error matrix. 

PUTIN Calls input subroutine package. Controls loop on static pressures for mixed- 
flow turbofan. 


ZERO 

COINLT 

ATMOS 

RAM 

RAM2 

COFAN 

COCOMP 


Zeros nearly all of common and certain controls. 

Determines ram recovery and performs inlet calculations. 

1962 U. S. Standard Atmosphere Table. 

Calculates ram recovery defined by MIL-E-5008B specifications. 

Calculates special cases of input ram recovery as a function of flight Mach 
number. 

Uses BLOCK DATA to perform outer- compressor (fan) calculations. 

Uses BLOCK DATA to perform inner- compressor calculations (two spools 
only) . 
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COCOMB 

COHPTB 

COLPTB 

CODUCT 

COMIX 


COAFBN 

FRTOSD 

FASTBK 

COMNOZ 

ERROR 

SYG ' 


PERF 

OUTPUT 

CONOUT 


Uses BLOCK DATA to perform combustor calculations. May use either T4 
or WFB as the main parameter. 

Uses BLOCK DATA to perform inner-turbine calculations (two spools only). 

Uses BLOCK DATA to perform outer-turbine calculations. 

Performs duct and duct-burning calculations for turbofans. May use either 
T24 or WFD as main parameters. 

Performs gas mixing calculations if in mixed-flow mode. At design points 
it calculates areas either from an input static pressure PS55 or from an 
input Mach number AM55 if PS55 = 0. At off-design points it calculates 
static pressures and Mach numbers from the design areas. Calculates 
ERR (5). Rescales pressure ratios for mixed-flow turbofans to match duct 
and core static pressures just prior to mixing. COMIX also calculates 
afterburner entrance area A6 as a function of afterburner entrance Mach 
number AM6. 

Performs afterburning calculations. May use either T7 or WFA as the main 
parameters. 

Dummy routine to transfer values from common FRONT to common SIDE. 
Dummy routine to transfer values from common SIDE to common BACK. 
Controls the main nozzle. 

Controls all printouts if an error occurs. Prints names of subroutine where 
error occurred and also prints the values of all variables in the main 
commons. 

Controls printing from UNIT08. Throughout the program and particularly 
in ENGBAL, certain messages, variables, and matrix values are written on 
UNIT08 as an aid in determining why an error occurred or why a point did 
not balance. These values are printed out if subroutine ERROR is called and 
IDUMP is greater than zero, or after a good point if IDUMP = 2. 

Calculates performance after the engine is balanced. 

Prints output except for controlled output. Prints the main commons after 
the design point. 

Controls and prints the controlled output variables. 
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THCOMP 

PROCOM 

SEARCH 

MAPBAC 

CONVRG 

CONDIV 

THTURB 

THERMO 

AFQUIR 

PARABO 

BLKFAN 

BLKCMP 

CMBDAT 

HPTDAT 

LPTDAT 

ETAAB 

FRATIO 

i^put 


Performs isentropic calculations for compressors. 

Calculates thermodynamic gas properties for either air or a fuel- air mix- 
ture based on JP-4 using curve fits of the tables of reference 4. 

General table lookup and interpolation routine to obtain data from the BLOCK 
DATA, subroutines. 

Used when calculations result in values not on the turbine maps. Changes 
the map value and an independent variable (PCNF, PCNC, or T4) in an at- 
tempt to rectify the situation. 

Performs nozzle calculations for a convergent nozzle. 

Performs nozzle calculations for a convergent-divergent (C-D) nozzle. 
Performs isentropic calculations for turbines. 

Provides thermodynamic conditions using PROCOM. 

General quadratic interpolation routine. 

Parabolic curve-fit routine. 

Performance data for outer compressor (fan) map (BLOCK DATA). 

Performance data for inner compressor map (BLOCK DATA; two-spool 
engines). 

BLOCK DATA for combustor. 

Performance data for inner turbine map (BLOCK DATA; two- spool engines). 

Performance data for outer turbine map (BLOCK DATA). 

Generalized afterburner performance BLOCK DATA as a function of fuel-air 
ratio with correction factors for off-design afterburner entrance pressure 
and Mach number. 

Convergent- divergent nozzle velocity coefficient (BLOCK DATA input as a 
function of nozzle pressure ratio and area expansion ratio). 

Package of Huff input subroutines. (The Huff Input Routine is a very versatile 
input mechanism further detailed in appendix B. ) 
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Entering the Data 


The Huff Input Routine, used to enter input data into the program at execution time, 
is discussed in appendix B. Appendix C presents the individual symbols internal to the 
program, station numbers, etc. , from which compound names such as WAFCDS (WA + F 
+ C + DS) are formed. Table II and appendix C present the names of the variables, the 
values of which are supplied on data cards. 

Choice of component maps - scaling laws . - Many of the engines that are studied 
using GENENG are theoretical. Therefore, actual component maps for these engines 
will be nonexistent. The program, however, does require component maps to do off- 
design calculations. To alleviate this problem, GENENG uses scaling laws to change 
data from one component map into a new component map. Hopefully, a component map 
can be found which could be expected to perform in a similar manner to the actual map 
for the engine type being studied. In fact, several maps that the authors have obtained 
are identified as to the range of pressure ratio and the engine component design type for 
which they are valid (i. e. , pressure ratio range, 4 to 8; subsonic compressor or inner 
compressor). Thus, for example, a high-bypass-ratio, subsonic-flight-speed, low- 
pressure-ratio fan map for a CF6 engine would not properly simulate a low-bypass- 
ratio, high-pressure-ratio, supersonic multistage fan. 

The scaling equations used for the compressor maps are 


PR vw,-™ - 1 

p R = design (PR n - 1) + 1 


PR - 1 

map, design 


map 


WA 

WA = design — x WA 

WA 

map, design 


map 


ETAj • 

ETA = design — x ETA 


ETA 


map, design 


map 


Similar equations are used for combustor and turbine map scaling. These equations are 
found in the appropriate subroutines. In the output are printed the correction factors 
used in scaling the maps. The closer these values are to 1. 0 (especially pressure ratio, 
a primary characteristic of a given compressor map), the more reasonable are the simu- 
lated maps of the engine. Conversely, however, not being close to 1.0 does not neces- 
sarily mean that the simulation is poor since many maps have been shown to be typical 
over quite a large range of variables. 

BLOCK DATA input. - The two compressor performance maps are entered into the 
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code as the BLOCK DATA subprograms BLKFAN and BLKCMP. The subprograms sup- 
plied by the authors with the code and shown in appendix A are not to be taken as realistic 
maps. These maps are only of an illustrative nature and are the ones used to run the 
sample calculations. 

Using subprogram BLKFAN as an example (the first nine cards of which are printed 
here) and referring to a typical compressor map (fig. 6), the data are programmed as 
follows: 


SIBFTC BLKFAN DECK 

C THIS IS A GENERALIZED FAN HAP FOR UNREALISTIC SUPERSONIC ENGINE 1 

BLOCK DATA 2 

COMMON / FAN/CN(15),PR(15,15l,WAC(15,15),ETAll5,15) f N,NP(15) 3 

DATA N,NP/10,6,3*7.5»10,8,5*0/ A 

DATA CN/O. 3, 0.4, 0.5, 0.6, 0.7,0. 8,0. 9, 1.0, 1.1, 1.2, 5*0./ 5 

DATA t PRC X • J ) tWACI 1,J),ETA( 1,J),J = 1, 61/ 6 

1 l.ODOOO, 243.600, 0.75592, 1.01200, 229. BOO, 0.76120, 7 

2 1.02 BOO, 199.800, 0.76648, 1.03840, 166.800, 0.75592, 8 

3 1.04480, 133.200, 0.72512, 1.04800, 86.400, 0.64152/ 9 


Card 1 reminds the reader that these maps are fictitious. Card 2 identifies subprogram 
as BLOCK DATA. Card 3 identifies common block FAN into which data are to be stored 
and dimensions the program variables. Card 4 indicates that there are 10 speed lines (N) 
and the number of points NF on each line - six on the lowest speed, seven on the next 

three lines, etc. Card 5 assigns the value of speed to each of the 10 lines (low to high). 

' < 

Cards 6 to 9 along speed line CN=0. 3 set pressure ratio PR, corrected airflow WAC, and 
efficiency ETA in sets of three going from low pressure (PR = 1. 0) to the surge line 
(PR = 1. 048). Note there are six sets of three values (NP(1) = 6). The rest of the cards 
(appendix A) set the values for each speed line. 

The combustor map is also a BLOCK DATA subprogram (CMBDAT). It is a plot of 
temperature rise across the combustor against efficiency for constant input pressure. 
Entry to the map is through temperature rise and input pressure with efficiency being 
output. The cards in the subprogram CMBDAT are reproduced here; a typical combus- 
tor map is shown in figure 7. 


SIBFTC CMROA T DECK 

BLOCK DATA 1 

COMMON / COM 8/ PS I ( 15 ) , DELT 1 15, 15) ,ETA(15, 151 ,N,NP (15) 2 

DATA N, NP / 15,15»15 / 3 

DATA »SI/4. 9116, 9. 8232, 14.735, 19. 646, 24. 558, 29. 470, 34. 381, 4 

139.293.44.207.73.674. 100.. 200.. 300.. 400. .500./ 5 

DAT 4 DELT/ 15*200. ,15*300., 15*400. , 1 5*500. , 15*600. , 15*700. , 15»B00 . , 6 

115*903., 15* 1000., 15* 1100., 15*1200., 15*1300., 15*1400. ,15*1500., 7 

215*1633./ 8 

DATA ETA / 9 

1 .600, . 726, .777, .806, . 826 9 - 84 3, . 855 » . 865 * 7*. 870 , 10 

2.756.. 925. .858. .875. . 888 . . 898. . 906 . . 912 . . 914 . 6. . 91 5 , 11 

3.868.. 393, .911, .925, . 935 , . 942, . 947, . 95 1 , 7*. 953 , 12 

4.925.. 9 36, .946, .955, .963,. 96 9, .974, .9 77, .978, 6*. 979, 13 

5.96 0,. 9 66, .97 2,. 977, .982,. 985, .990, .992, .993,6*. 995, 14 

6.988. . 991. .992.-994, . 995 ,. 997, . 998, 8* . 999, 15 

78*1. 00, 7*. 999, 120*1.00/ 16 

END 17 
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Card 1 identifies subprogram as BLOCK DATA. Card 2 identifies common block COMB 
into which data are to be stored and the dimension of each variable. Card 3 indicates 
that there are 15 lines of constant PSI(P3) by the value of N, and that there are 15 values 
of DELT(DT) and ETA(ETAB) along each line of constant PSI(P3). Cards 4 and 5 assign 
values to each of the P3 lines from low to high pressure. Cards 6 to 8 assign values of 
AT to each of the P3 lines starting at low AT. The lowest value of AT on each of the 
P3 lines is given starting with the lowest value of AT on the lowest value of P3. Next 
comes the second lowest value of aT on each P3, etc. Again this map is unrealistic, 
being used for illustrative purposes only. Cards 9 to 16 assign the value of rj-g in a one- 
to-one correspondence with the AT values just assigned. The order is the same. The 
combustor pressure loss is input as a design value (i. e. , DPCODS = 0. 05) for a combus- 
tor type being considered. During off-design operation, the pressure loss is related to 
the design value by the following equation: DPCOM = DPCODS x (WA3C/WA3CDS) . This 
equation is found in the COCOMB routine. 

Also entered as BLOCK DATA subprograms are the turbine maps (HPTDAT and 
LPTDAT). To illustrate the entering of turbine data, LPTDAT is used. A typical tur- 
bine map is shown in figure 8; the data are programmed as follows: 


SIBFTC LPTDAT DECK 

BLOCK DATA 1 
COMMON / LTURB/TFFU5),CN(15,15I.DHU5.15)»ETA<15,15»»N»NPU5} 2 
DATA '),NP/U,9»15,12.9,4»0/ 3 


DATA TFF / 

88«470 b 

102*795, 

116*835, 

129*330, 

141.045, 

4 

1 

145.725, 

150*000, 

153.345, 

156*405, 

159*780, 

163. 170, 4»0® / 

5 

DATA CN( 1, 

J)*DH( 1, 

J ) , ETAC 1, 

J ) * J=l, 15 ) / 



6 

1 

0.3582, 

0.0018, 

0.7120, 

0*5336, 

0.0026, 

0.7300, 

7 

2 

0.7365, 

0.0035, 

0.7472, 

0*9754, 

0*0044, 

0.7300, 

8 

3 

1.2146, 

0.0051, 

0.7140, 

1.4173, 

0*0056, 

0.7000, 

9 

4 

1.5201, 

0.0059, 

0.6850, 

1*7673, 

0*0061, 

0.6730, 

10 

5 

2 .0247 f 

0.0062, 

0.6452, 

2*2827, 

0*0061, 

0.6200, 

11 

6 

2.4565, 

0.0057, 

0.6000, 

2.6137, 

0*0053, 

0.5750, 

12 

7 

2.3166, 

0.0044, 

0.5310, 

2.9456, 

0*0035, 

0.5000, 

13 

8 

3.3138, 

0.0001* 

0.3850/ 
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Card 1 identifies the subprogram as BLOCK DATA. Card 2 identifies the common block 
into which data are to be loaded and dimensions the program variables. Card 3 indicates 
the number of constant turbine flow function lines TFF as 11(N) and the number of points 
on each line from low to high TFF. Cards 4 and 5 set values of TFF from low to high. 
Cards 6 to 14 set values of corrected speed CN, work function DH, and efficiency ETA 
along TFF(l) starting from low CN(0. 3682) and ending at high CN(3. 3138). The rest of 
the cards set values along higher TFF lines. 

In many cases, turbine maps for high- perf or mance engines operate at a choked con- 
dition (constant TFF). Thus, a turbine map to be represented could possibly have no 
lines representing constant TFF for a significant portion of the map. For complete map 
representation, lines of constant TFF may be estimated on the map up to the limit load- 
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ing line by inputing slight changes for the values of TFF (example: one line for TFF is 
62. 105, the next may be input as equal to 62. 108). This will eliminate computational 
difficulties which would arise if constant values for TFF lines were input. 

Afterburner performance has been programmed in a generalized form in subroutine 
COAFBN. The afterburner performance map included in the program is shown in fig- 
ure 9(a). The performance map shows afterburner combustion efficiency ratio as a func- 
tion of fuel- air ratio. The value of afterburner combustion efficiency correction factor 
AETAA during off- design operation is shown against design afterburner inlet Mach num- 
ber ratio (fig. 9(b)) and design afterburner inlet total-pressure ratio (fig. 9(c)). Other 
correction factors or performance maps could be added as desired. The afterburner ef- 
ficiency, fuel- air ratio, inlet total pressure, and Mach number are generalized external 
to the program. 

A specific afterburner performance is generalized by dividing the specific off-design 
values by the design values, as shown here. The symbols shown are the symbols used in 
the ABETTA subroutine, where the generalized and specific values are input. The gener- 
alized afterburner values are obtained as follows: 

Efficiency (ETABRT) = ■ - E - T — 

ETAADS 

Fuel- air ratio (FART) 

FARTDS 

P6 

Entrance total pressure (P6T) = 

P6DS 

Entrance Mach number (EM6T) = — ^ ■ 

AM6DS 

However, the correction factor for efficiency AETAA is not a generalized value. The 
value of aETAA is an efficiency degradation. These degradations are input in ABETTA 
as discrete points on a curve. The values of aETAA are input as functions of the fol- 
lowing: 

(1) The change in efficiency as a function of EM6T is input as DELM6 (which is 
really aETAA = f(AM6)). 

(2) The change in efficiency as a function of P6T is input as DELP6 (which is really 
AETAA = f(P6)). 

At execution time for the design point, values of afterburner combustion efficiency 
ETAADS, exit total temperature T7DS, and entrance Mach number AM6DS are input. 
Design fuel-air ratio and entrance pressure ratio are calculated from the input values 
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and the other design engine characteristics. 

The afterburner pressure loss is input as a design value (DPAFDS) during the design 
case. During afterburning the pressure loss due to combustion is calculated and the 
regular pressure drop is included for a total afterburner pressure loss. The equations 
for off-design and combustion pressure losses are contained in the COAFBN subroutines. 

To achieve a reasonable accuracy in cycle calculations when using any generalized 
component map, the usage of the map should be limited within a certain range of the 
original design values and configuration changes. Therefore if, for example, an after- 
burner has a design task that differs significantly from an example used, a new general- 
ized performance map should be used in order to simulate the component more accu- 
rately. 

SMOTE, the original code, uses a single-point input for nozzle velocity coefficients 
(CVMNOZ and CVDNOZ) when calculating engine performance. GENENG, however, uses 
a convergent- divergent nozzle velocity coefficient which is input in map form in the 
FRATIO subroutine. The velocity coefficient is input as a function of nozzle total- 
pressure ratio (P8/P1 or P28/P1), The data for the nozzle are programmed as shown 
below for a performance map similar to that shown in figure 10. 


tIBFTC FRAUD DECK 

SUBRDJ T INE FRASHO ( PRATI 0, AR AT ID, CF ) l 

DIMENSION PR130) ,AR( 10), CFR( 30,10) ,XXI3),YY(3) ,ZZ{2) 2 

DATA =>R/1.0, 1.25,1.5, 1. 7 5, 2. 0,2. 25, 2. 5, 2. 75, 3. 0,3. 25, 3. 5, 3.75, A. 0, 3 

1 A. 25, A. 5, 4. 75, 5., 5. 5, 6., 6. 5, 7., 8. ,9., 11., 13. ,15. , 17. , 19. , 21. , 23. / A 

DATA 41/ 1.0,1,05, 1,092, 1,228, 1,318, 1,423, 1,8, 1,9, 1,97, 2,15/ 5 

DATA CFRII.l), 1 = 1, 1801/ 5 

1.971 975. . 978.. 980. . 981 .. 980. . 9784. . 9765 .. 9742 .. 9715 , 7 

2.9688, .965 8, .9632, .960,. 957, .9538, . 9506, . 9445, .938, .932, . 927, . 91 8 . 8 

3. 91U,. 397, .8855, .876, .867, .859, .8515, .844, 9 

4.96 3,. 966, .970,. 9743, .978, . 9805, . 982, .9805, . 9786, . 9762, . 974, . 971 8 , 10 

5.9693, .96 7,. 9645, .962, .9595, .954,. 949,. 944,. 9395,. 9308,. 9238, 11 

6.9117, .901, .892, .884, .8762,. 869, .862, 12 

7.956.. 9 60 5.. 9638.. 96 7.. 970.. 9731.. 9754.. 9775.. 9795.. 9 81.. 980.. 97 8, 13 

8.9761. . 9742. .9723.. 9 702. .968. . 9637. . 9594. .9554. . 9517. . 945 .. 9387, 14 

9.9276, .9177, .9082,. 8 998, .891 ,. 883, . 8752, 15 

$.947, .949, .9517, .954, .957, .9601, .9632, . 9668, .971 ,. 9737 .. 976, . 977 7 . 16 

$.978,. 977 2,. 976,. 975 2,. 9 74,. 970,. 965 5,. 9637,. 9603,. 955,. 950,. 940 3, 17 

$.9317, .9232, .915,. 90 7,. 8996,. 892, 18 

$.949,. 9502, .9508, .9473,. 9438,. 941, .939,. 940,. 950,. 956,. 9605,. 964, 19 

$.967,. 968, .9692, .970, . 9703 ,. 9698, . 9696 ,. 9684, . 966, . 960.. 9444, 20 

$.9438, .9347, .9265,. 9 193, .9 128, . 9067, . 901 , 21 

$.948,. 9485, ,9487, .9484, .947,. 9435,. 936,. 9275,. 9185,. 9155,. 9155, 22 

$.929,. 941,. 9455,. 950,. 95 3,. 9558,. 9591,. 9608,. 9609,. 9601,. 957, 23 

$.95 31, .9448,. 9362,. 9279, . 9 1 88, . 91 0, . 901 , . 892 1/ 2 4 


Card 1 identifies the subroutine. Card 2 identifies the subroutine from its calling name 
used in the subprogram in addition to the variables that are desired to be transferred. 
Card 3 dimensions the program variables. Cards 4 and 5 set the value of PR(P9/P1 or 
P29/P1) from low to high. Card 6 sets the values of AR(A9/A8 or A29/A28) from low to 
high. Card 7 fills the first 30X6 array of CFR(CVMNOZ or CVDNOZ) and is followed by 
another data statement which fills the remaining 30X4 values. Cards 8 to 24, etc. , are 
the first values of CFR being loaded for constant values of pressure ratio for varying 
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ratios going from low to high. 

After the data input, the equations required to interpolate between points of the input 
values are included in the FRATIO subroutine. 

Usually, a turbojet or a mixed-flow turbofan has a single exhaust nozzle; therefore 
the velocity coefficient is determined as a function of A9/A8 and P9/P1. A separate-flow 
turbofan is considered to have two separate nozzles; thus in addition to using A9/A8 and 
P9/P1, it will use the duct A29/A28 and P29/P28 to determine a velocity coefficient to 
correct each stream separately. When desired, however, a different nozzle map 
(i. e. , convergent nozzle) or single-point inputs can be readily incorporated. 

Inputs required at execution time . - Basically, what must be supplied are a list of 
the desired output variables, design values of any component existing in the engine 
(compressors, combustors, turbines, etc.), and engine operational controls. The vari- 
ables that are to be output are selected by the first section of data cards. Any variables 
that are in one of the main commons (DESIGN, FRONT, SIDE, BACK, or DUMMYS) may 
be selected for output by punching, in columns 1 to 6, the name of the variable as it ap- 
pears in the common. Up to 150 variables (25 lines of six variables) may be chosen for 
a particular run. During the output phase, the name of the variable is printed out, with 
its value printed immediately below the name. 

Another feature of the controlled output is the ability to change the name of the vari- 
able to be output; for example, it may be desired to change a station designation to one 
more common to a particular programmer. In this case, the variable name would be 
punched in columns 1 to 6 as previously described, but, in addition, the described name 
would be punched in columns 13 to 18. Special symbols, such as /, may be used in the 
new name. The last card of the controlled output must be a card with "THEEND" 
punched in columns 1 to 6. 

Table II summarizes the design inputs for the four basic engines discussed in this 
report. 

The following control variables should always be supplied at the design point. The 
value used is dependent on how the user wants the engine to operate. The symbols and 
their purpose are listed in subroutine PUTIN but are shown here for the reader’s con- 
venience. The superscripts (1) to (4) on the symbols have the following meanings: 

(1) means "automatically returned to zero after each point is calculated, must be re- 
input if option is again desired"; (2) means "option can be used for design or off- 
design”, whereas the other two modes can only be used at off- design; (3) means "these 
: input values remain as input unless changed by a new input"; (4) means "before using 
I these options which are not equal to zero, a setup case must be run where all the compo- 
! nents are first matched, and then the identical case may be repeated exercising these 
! options. " 



IDES - 1^ 

( 2 )mode = o^ 3 ) 

MODE = 
^MODE = 2^ 
MODE = 3^ 
EMIT = 0< 3 > 

EMIT = 1^ 
IDUMP = 0^ 
IDUMP = l^ 3 ) 
IDUMP = 2^ 
IAMTP = 0^ 
IAMTP = l^ 3 ) 
IAMTP = 2^ 

IAMTP = 3^ 3 ) 
IAMTP = 4^ 
IAMTP = 5^ 
IGASMX = -1^ 
IGASMX = 0< 3 > 
IGASMX = 1^ 
IGASMX = 2^ 
ID BURN = 1^ 
IDBURN = 2^ 


For calculating design points. 

Specify T4. 

Specify PCNC. 

Specify WFB. 

Specify PCNF. 

Initializes point. 

Will not initialize point. 

Will not dump looping write-outs. 

Will dump looping write-outs if error occurs. 

Will dump looping write- outs after every point. 

Will use input AM and military specification ETAR. 

Will use input AM and input ETAR. 

Will use input T2 to determine T1 = 518. 668 + T2 and standard PI. 
(T2 value needs to be input at every point or an error will occur 
whenever used. ) 

Will use inputs P2 and standard Tl. 

Will use input T2 and input P2. 

Will use specific schedule of ETAR located in subroutine RAMTWO. 
Separate flow, input A6. 

Separate flow, A6 = A55. 

Will mix fan duct and main streams, A6 = A25 + A55. 

Will mix fan duct and main streams, input A6. 

For duct burning (fan stream only), input T24. ^ 

For duct burning (fan stream only), input WFD. ^ 


18 



IAFTBN = 1^ 

For afterburning (main stream or mixed stream of fan and main 
stream), input T7 . ^ 

XAFTBN = 2^ 

For afterburning (main stream or mixed stream of fan and main 
stream), input WFA. ^ 

IDCD = 1^ 

Fan duct nozzle will be convergent-divergent. 

IMCD = 1^ 

Main nozzle will be convergent-divergent. 

NOZFLT = 

For floating main nozzle exit area. ^ 

NOZFLT = 2^ 

For floating fan duct nozzle exit area. ^ 

NOZFLT = 3^ 

For floating fan duct and main nozzle exit area. ^ 

ITRYS = N 

Number of passes through engine before quitting. 

TOLALL = X 

Tolerance which the errors must satisfy before engine is matched. 


The following are other input variables for which some value, depending on the en- 
gine design, should be input at the discretion of the user: 


DELFG, DELFN, DELSFC Normally input as 1. 0 unless correction is desired. 


A6, AM55, AM23, AM6, 
HPEXT, AM, ALTP 

PCBLF, PCBLC, 
PCBLDU, PC BLOB 

PCBLHP, PCBLLP 


See appendix C, Input Symbols. 

Value for bleed out of the cycle; decimal equivalent of 
percent compressor flow. 

Value of total bleed returned to turbines for cycle; frac- 
tional equivalent of flow. The sum of these variables plus 
PCBLDU and PCBLOB should equal 1. 


Inputs required for additional options to basic cycles . - To run duct-burning (avail- 
able only in fan stream duct) cases load ETAD, T24 or WFDDS, and DPDUDS. To run 
afterburning (mixed-flow fan or unmixed fan - available only for core and fan stream) 
cases, load T7DS or WFADS, ETAADS, and DPAFDS. Afterburner operation is the same 
as in reference 2 with the exception of a generalized afterburner performance map addi- 
tion. For changing the generalized map to a specific map for a specific engine design, 
the preceding design values are needed at the design point. 
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Means of Specifying Mode of Engine Operations 


Shown in the section SAMPLE CALCULATIONS (pp. 21 to 46) are the methods of 
specifying off-design operation points. The most common one and that used exclusively 
herein is to select a Mach number, altitude, and turbine inlet temperature other than 
design values. There are, however, several other possibilities which the user may em- 
ploy. For example, changing the following controls: 

MODE = 0 Specify a new turbine inlet temperature T4. 

MODE = 1 Specify a compressor rotational speed PCNC. 

MODE = 2 Specify a fuel flow rate WFB. 

MODE = 3 Specify a fan rotational speed PCNF. 

If the engine has all its nozzles fixed, an input such as turbine inlet temperature, 
fuel flow, or speed will set the thrust level. But other means of changing engine opera- 
tion can be accomplished by varying such nozzle thrust areas as 

A8 Main nozzle thrust area 

A28 Fan nozzle thrust area 

For example, an off- design condition may exist where, in an attempt to satisfy continuity 
of mass flow (one of the component matching requirements), the fan operating point may 
lie outside the limits of the data map that was input for the component map. A fan noz- 
zle thrust area change could be used to return the fan operating condition on the map 
such that a match would occur. This would indicate a possibility exists that variable fan 
nozzle would be required on this engine for operation at the desired condition. The area 
is changed by inputing (example: A28 = 1. 2 x A28). Since the design areas are not known 
prior to running the design point, the Huff Input Routine provides the versatility in which 
A28 is increased by 20 percent, as was shown. It whould be noted that any area changed 
remains changed until it is recalculated by a new design case or altered by a new input. 
The preceding example and statements would also apply if changes were made instead to 
A8. 

The nozzle exit area (such as A9 or A29) may then be fully expanded (if A8 and A28 
are sonic) after component matching is achieved by using the control variables NOZFLT 
= 1, 2, or 3. The significance of these values was explained in the previous section. 
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SAMPLE CALCULATIONS 


Shown in this section are complete listings of sample calculations for a single-spool 
turbojet, a two-spool turbojet, a separate-flow turbofan, and a mixed-flow turbofan. 
Detailed instructions for operating the program are disclosed through means of these 
sample calculations plus comments in the program listing (appendix A) and the PUTIN 
routine (pp. 50 to 52). The input and output data associated with one complete design 
and off- design computer run are shown. 


Single-Spool Turbojet 

Design point . - This case is for design-point operation of a single- spool turbojet 
engine and is represented by three groups of data printout: (1) card images of input data, 
(2) results, and (3) the common variables printed out only at the design point. 

For this point, the component maps were loaded as BLOCK DATA and scaled to maps 
for the desired engine design. The common variables appearing in the printout are de- 
fined by the relative locations of the common blocks of DESIGN, FRONT, SIDE, and 
BACK. The code for the common variables shown on pages 23 and 24 is as follows: 


ZF, 

PCNF, ZC, 

PCNC, 

T4, 

MODE 

COMMON 

/DESIGN/ 




1PCNFGJ 

r PCNCGII, T4GU ,DUM01 

* DUMD2 

y DELFG 

tDELFN ,DELSFC 

2ZFDS 

« PCNFDSyPRFOS * ETAFDS 

• WAFDS 

*PRFCF 

yETAFCFy WAFCF 

3ZCDS 

y PCNCDS* PRCDS yETACDS 

y WACDS 

yPRCCF 

y ETACCF * WACCF 

4T40S 

,WFBDS y DTCODS , ETABDS 

y WA3CDS 

yDPCODS 

y DTCOCFy.ETABCF 

5TFHP0S 

y CNHPDS, ETHPDSy TFHPCF 

,CNHPCF 

y ETHPCF 

y DHHPCF , T2DS 

6TFLPDS 

y CNLPDSy ETLPDS yTFLPCF 

yCNLPCF 

y ETLPCF 

tDHLPCF f T21DS 

7T24DS 

,WFDDS y DT DUOS y ETADDS 

y WA2305 

y DPDUDS 

y DTDUCF y ETADCF 

8T7DS 

y WF ADS y DTAFDS y ETA ADS 

» WG6CDS 

v DPAFDS 

,dtafcf,etaacf 

9A55 

y A25 ,A6 y A7 

y A 8 

,A9 

• A28 ,A29 

SPS55 

y AM55 t CVDNQ2 y CVMNDZ 

y A8SAV 

v A9SAV 

y A28SAV y A29SAV 

COMMON! 

/ FRONT/ 




1T1 

y Pi .HI ,S1 

t T2 

* P2 

,H2 y S2 

2T21 

.P21 ,H21 • S21 

* T3 

»P3 

»H3 y S3 

3T4 

,P4 y H4 ,S4 

,T5 

tP5 

,H5 ,S5 

4T55 

y P 5 5 « H55 y S55 

y BLF 

*BLC 

y BLDU .BLOB 

5CNF 

■ PRF ,ETAF ,WAFC 

yWAF 

y HA3 

,WG4 y FAR4 

6CNC 

y PRC yETAC yWACC 

y W AC 

• ETAB 

. DPCDH ,DUMF 

7CNHP 

• ETATHPyDHTCHP y DHTC 

y BLHP 

,rfG5 

y FAR5 yCS 

8CNLP 

♦ ET ATLP, DHTCLP » DHTF 

.BUP 

y WG55 

y FAR55 yHPEXT 

9AM 

* ALTP ,ETAR ,Z F 

, PCNF 

»zc 

yPCNC »WFB 

STFFHP 

. TFFLP yPCBLF , PCBLC 

.PCBLDU 

(.PCBL3B 

,PCBLHP,PCBLLP 

COMMON! 

/ SIDE/ 




1XPX 

•XWAF yXWAC »XBLF 

♦XBLDU 

y XH3 

•DUMSl . DUMS2 

2XT21 

y XP21 y XH21 y XS2 1 

• T23 

,PZ3 

y H23 y S23 

3T24 

, P24 y H24 y S24 

y T25 

y P 25 

,H25 y S25 

4T28 

y P28 y H28 y S28 

* T29 

yP29 

y H29 y S29 

5WAD 

v WFD y WG24 v FAR 24 

*ETAD 

yDPDUC 

y BYPASS. DUMS3 

6TS28 

v PS28 y V28 , AM28 

« TS29 

y PS29 

»V29 ,AM29 

COMMOM 

/ BACK/ 




1XT55 

. XP 55 y XH55 yXS55 

y XT 25 

y XP25 

. XH25 . XS25 

2XWFB 

♦ XWG55 . X FAR55 » XWFD 

y XWG24 

»XFAR2A 

,XXP1 .DUMB 

3T6 

,P6 ,H6 ,S6 

t T7 

f P7 

9 H7 yS7 

4T8 

7 P8 ,H8 y S 8 

*T9 

yP9 

• H9 * S9 

5WG6 

,WFA ,WG7 ,FAR7 

,ETAA 

y DPAFT 

y V55 y V25 

6PS6 

* V6 y AM6 y TS7 

y PS7 

tV 7 

. AM7 , AM2 5 

7TS8 

y PS8 ,V8 y AM8 

y TS9 

y P S 9 

,V9 . AM9 

8VA 

» FRD ,VJD 9 FGMD 

»VJM 

,FGMM 

yFGPD ,FGPM 

9FGM 

. FGP ,WFT ,WGT 

y FART 

»FG 

»FN 7 SFC 
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It should be noted that the program uses fixed effective areas calculated at the design 
point. The design case which calculates the area uses a convergent nozzle. Thus, as 
seen on the listing (pp. 23 and 24), A8 = A9. Before an afterburning case or before the 
nozzle is allowed to float (become fully expanded to a convergent- divergent nozzle), the 
engine components must first be matched in a setup run. Then, the next case may be run 
with IAFTBN or NOZFLT control cards unequal to zero and may be used as shown in the 
off- design cases 4 and 5 or 6 and 7, Either a convergent or a convergent- divergent sub- 
routine may be used, depending on the input controls. If afterburning has been selected, 
the nozzle area is allowed to float to satisfy continuity. However, the areas are re- 
turned to their original design values after the afterburning or nozzle float points are 
completed. 

Because the first example is a single-spool turbojet, values for the inner compres- 
sor and turbine, as well as duct parameters, are either zero or 1. The actual or cor- 
rected values of compressor exit flow (WAC or WACC, respectively) are printed out 
prior to any bleed extraction. The value of WA3 is the combustor entrance airflow after 
bleed extraction. 

The first 11 lines of the following example show the storage locations reserved for 
the input data. The locations are relative to the common block locations shown on 
page 21. Only locations for which values of data will be input are required. Following 
the end of the storage locations are the input data which are typical for running a single- 
spool turbojet engine. 


tDATAU) U INPUT DATA CARDS 

$ TABLE! • REAL ,22 = 101 ALL, 34=0EL FG, 35=DELFN, 36=DEL SFC , 37*ZFDS , 38*PCNFDS * 39=PRFDS , 
40=ETAFDSi41=WAFDS,45=ZCDS t 46=PCNCDS*47=PRCDS,48=ETACDS,49=MACDS, 53*T4DS,54= 
WFBDS,55=DTC0DS,56=ETABDS»58=DPC0DS*61=TFHPDS,62=CNHPDS,63=ETHPDS»69=TFLPDS 9 
7O=CMLPDS ? 7l=ETLPDS,82=DPnUDS,85=T7DS»88=ETAADS 9 90=0PAFDS»95=A6,97=A8» 101=PS55» 
102 = AM5 5,103 = CVONOZ,10A=C\/MNOZ, 1 13=T2, li4*P2 , 125=14 , L44=WAFCDS » 152=W ACCDSt 
172=HPEXT, 173=AM, l 74= AL TP ? 1 75 = ET AR , 1 77=PCNF * 1 79=PCNC 9 183 = PCBLF v 184 = PCBLC , 
185=PCBLDU,186=PCBL0B,187=PCBLHP, 188=PCBLLP, 205=T24,225=ETAD,257=T7»270=WFA» 

2 73 = ETAA 7 279=AM6»313=AM23 ? 99=A28, 1 80=WFB* 222=WF0* * INTEGER* *2=1 DCS* 5= MODE 
,7=I0UMP,8=IAMTP,9=IGASMXa0=ID8URN,ll = IAFTBN f 12= IDCD *13= IMCD ? 16=N0Z FLT v 17 = 
ITRYS|314=I SPOOL »«L0GICAL« 9 319=FAN) * END DF TABLE GIVING NAMES AND LOCATIONS 

*0 INPJT DATA TO RUN ONE SPOOL TURBOJET 

FAN*. FALSE. , I SPOOL =1, Z FDS=. 83333333* PRFDS=8 » WAFCDS=633 , ETAFDS=« 829 7 PCNF0S= 100 , 
PCBLF=0 T PCBLC=.097,PCBLHP=0,PCBLLP = l f PCBL0B=0 » T4DS=3260 , DPCGDS* . 056, ET A8DS = . 985 » 
FTIPOS*. 90 3»TFLPDS =130.0, CNLPDS=2 . 300 »HPEXT =0»AM55= e 238,AM6=®238»ETAADS=»90» 
T7DS=3560,DPAFDS=.048,DELFG=1,DELFN=1,DELSFC=1,TOLALL=»005,ITRYS=210» IDCD=0, 

I MCD=0* I DES=1 t I AMTP=0»MODE=0, IDUMP=0, AM=0»ALTP=0, 


The following is an example of the normal design-case printout. The fan, compres- 
sor, combustor, high-pressure- and low-pressure-turbine correction factors are 
printed out, as are the various designated design areas. Following these are the inter- 
nal engine thermodynamic characteristics and thrust and specific fuel consumption. 
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*1 DESIGN POINT WITH NORMAL PRINTOUT WHEN IDE$=1 (PRINTED OUT FOR DESIGN 
* POINT ONLY) - - NEXT PAGE HAS THE CLOSE FORMAT (SEE PAGE OF XEY TO VARIABLES) 

FAN DESIGN PRFCF = 0. 17500000E+02 ETAFCF= 0. 94204545E+00 WAFCF= 0. 105500005*01 T20S= 0. 51866820E+03 

COMPRESSOR DESIGN PRCCF= 0. IOOOOOOOE+Ol ETACCF* 0. IOOOOOOOE+Ol WACCF= 0. 10000000 E+Ol T210S* O.lOiSi >59E+04 

COMBUSTER DESIGN WA3C0S= 0. 15521097E+03 ETABCF= 0. 98500000E+00 DTCOCF* 0. 10000000E+01 

L.P. TURBINE DESIGN CNLPCF= 0.131321746+01 TFLPCF= 0.42574495E+00 ETLPCF= 0, 10235344E+01 DHL PCF= 0.23187927E+01 

TURBINE AREA OESIGN A55= 0. 20933135E+0 2 AM55= 0.23823719E+00 

AFTERBURNER DESIGN WG6CDS= 0. 89939300E+04 

NOZZLE OESIGN A8= 0.85831488E+01 AM8= 0. IOOOOOOOE+Ol A9* O.85851408E+O1 AM9= 0. 1OCC0CCOE+O1 


CUTPUT 

AM= 0. 

ALTP = 

0. T 4= 

3260.00 


ETAR= l.OOOC 



PCNF 

CNF 

IF 

PRF 

W AFC 

WAF 



O.lOOOOOE+03 

0. 1000006+01 

0.8333335+00 

0. 8000006+01 

0. 633000E+03 

0.633000E+C3 



PCNC 

CNC 

zc 

PRC 

WACC 

WAC 



0.100000E+03 

0. lODOOOE+Ol 

0. 

0. 1000006+01 

0.110915E+03 

0.63300CE+03 



T2 

P2 

T21 

P21 

T3 

P3 



0.518668E+03 

0. 1000006+01 

0.101916E+04 

0. 8000006+01 

0. 101 9 1 6E + 04 

O.tiOOOOCE+Cl 



PCBLF 

BLF 

PCBLC 

BLC 

PCBLOB 

BLOB 



0. 

0. 

0.970000E-01 

C. 6140106+02 

0. 

0. 



PC BL HP 

BLHP 

PC8LLP 

8LLP 

T 4 

P4 



0, 

0. 

O.lOOOOOfc+Ol 

0. 61401 OE +02 

0.326000E+04 

0.75520CE+C1 



WA3 

WFB 

WG4 

FAR4 

ETAB 

OPCOM 



0.5715996+03 

0.2193596+02 

0.593535E+03 

0. 3837646—01 

0.985000E+00 

0. 56000 0 E-Ol 



TFFHP 

CNHP 

OHTCHP 

DHTC 

T5 

P5 



0. 

0. 

0 . 

0. 

0.3260006+04 

0. 75520CE+0 1 



tfflp 

CNLP 

OHTCLP 

DHTF 

T55 

P55 



0.305347E+03 

0.175142E+01 

0.171750E-01 

0. 1298306+03 

0.269721E+04 

0.37818 7E+0 1 



PCBLDU 

RLOU 

T24 

P24 

T25 

P25 



0. 

0. 

0. 

0. 

0.1019166+04 

0. 80000CE+01 



WAD 

tff D 

WG24 

FAR24 

ETAD 

DPOUC 



0 . 

0 . 

0.633000E+03 

0 . 

0. 

0 . 



ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM2 5 



0.829C00E+00 

O.IOOOCOE+Ol 

0. 1 OOOOOE + 01 

0. 903000E+00 

0.238237E+CC 

0 . 



T 6 

P6 

PS6 

AMS 

V6 

WG6 



0.269721E+04 

0.378187E+01 

0. 364695E+01 

0. 239237E+00 

0. 579433E+0 3 

0. 654936 £+ 03 



T7 

WFA 

WG7 

FAR7 

ETA A 

DPAFT 



0.26972 IE +04 

0 . 

0.654936E+03 

0.346539E-01 

0 . 

0. 4800QC E-0 1 



PS8 

AM8 

V8 

PS9 

AM9 

V9 



0.1982046+01 

0.1000006*01 

0.228834E+04 

0. 198204E+01 

0. 100000E+0 1 

0. 228834 E+04 



PS28 

AM 2 8 

V28 

PS29 

AM29 

V29 



0. 

0 . 

0 . 

0 . 

0 . 

0 . 



BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 



0 . 

0 . 

0.219359E+02 

0. 654936E+03 

0 . 

0 . 



CVMNOZ 

VJM 

CVONOZ 

VJD 

FGM 

FGP 



0.9 6 7 6 3 26 + 00 

0.221427E+04 

0 . 

0 . 

0. 450738E+0 5 

0.178418E+05 

PAIN 

SCNIC 

convergent NOZZLE 

FG= 62915.60 


FN= 62915.60 


SFC= 1.25516 

DUCT 

SHOCK 

3’JTSlOt C-0 NOZZLE 







CONVERGED AFTER 1 LOOPS 


The following shows the common variables which can be read, if desired, by refer- 
ring to the common designation (p. 21). 


COMMON 


0.833333E+00 

0. 1000006+03 

-0.0000006-19 

-0.0000006-19 

0. 

0 .1000006+03 

C • 3260C0E+04 

0. 1C0000E 

♦03 

0. 

0.326000E+04 

0. 1000006+03 

0. 

0. 100000E+01 

0 .1000006 + 01 

0 . lOOOCOE + Ol 

0.833333= 

♦00 

0. 100000E + 03 

0 . 800000E+01 

0.8290006+00 

0. 633000E+03 

0.1750006+02 

0.9420456+00 

0.1055006+01 

0. 


0. 

0. 

0. 

0.633000E+03 

0.1000006+01 

0 .1000006 + 01 

0. 1000C0E + 01 

C.326000E 

♦ 04 

0. 

0.2240846+04 

0.9850006+00 

0.1552116+03 

0.560000E-01 

0.1000006+01 

0.985C006+00 

0. 


c. 

0. 

0. 1000006+01 

0. 

0.1000006+01 

0. 1000006*01 

C. 5186686+03 

0.1 30OODE 

♦03 

0.2300006+01 

0.9030006+00 

0.4257456+00 

0.1313226+01 

0.1023536*01 

0.2318796+01 

0.1019166+04 

0. 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

C. 3560006 

♦ 04 

0. 

0. 

0.900000E+00 

0. 899393E+04 

0.4800006-01 

0. 

0. 

0.2C93M = 

♦ 02 

0. 

0.2093316+02 

0.2093316+02 

0.8585156*01 

0.8585156+01 

0. 

0 . 

0. 364&>J5E 

♦ 01 

0.2382376*00 

0. 

0.9676326*00 

0. 

0. 

0. 

0. 

0.518a 706 

♦ 03 

0. 1000006+01 

0.1239186+03 

0.159103E+01 

0.5186686+03 

0.1000006+01 

0.1239186+03 

C. 1591036 + 01 

0. 101916= 

♦ 04 

o.eoooooE+oi 

0.2456546+03 

0.1612366+01 

0.1019166+04 

0.800000E+01 

0.2456546+03 

0.1612366+01 

0. 3260 JOE 

♦ 04 

0.7552006+01 

0.9161196+03 

0.196079E+01 

0.3260006+04 

0.7552006+01 

0.9161196+03 

C. 1960796+01 

0 . 2697 21 E 

♦ 04 

0.3761876+01 

0.7356046+03 

0.1946496+01 

0. 

0.6140106+02 

0. 

C. 

0. ICOOf'O; 

♦ 01 

0. 8000006 + 01 

0.8290006+00 

0.633000E+03 

0.6330006+03 

0.5715996+03 

0.5935356+03 

C. 3837646-01 

0. 1 COOL 05 

♦01 

0.1000006+01 

0.1000006+01 

0. 1109156+03 

0.6330006+03 

0.9850006+00 

0.5600006-01 

0. 

C.lCOOuOE 

+ 01 

0. 1000006 +01 

0. 

0. 

0. 

0. 5935356+03 

0. 3837646-01 

0. 1116996 + 04 

0.23C000E 

♦01 

0.903000E+00 

0.3982526-01 

0. 1298 30E+03 

0. 6140106+02 

0.654936E+03 

0. 3465396-01 

C. 

0. 


0. 

0.1000006+01 

0.8333336+00 

0.100000E+03 

0. 

0. 1000006 + 03 

C. 2193596+02 

0. 


0. 130000E + 03 

0. 

Q. 9700006-01 

0. 

0. 

0. 

0 . 1000C06 + 01 
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c.icoocnE+oi 

C. 1019166+04 
0. 

0. 

0. 

0. 

O.269721E+04 
0. 2 193 596 +02 
C. 2697216+04 
0.2697^16+04 
0. 6549366+03 
0. }646W5F +01 
CJ.2 35S13F+04 
0. 

0. *507396+05 


0.633C00E+03 
(.-• QOOCOOE +01 

C. 

0. 

0. 

0. 

O.37B1Q7E+01 
0.6549366+03 
0. 3761876 +01 
0.3600346+01 

0. 

0. 5794336+03 
0.198204E+01 

0. 

0.1784186+05 


0.633000E+03 

0.2456546+03 

0. 

0. 

0.6330006+03 

0. 

0. 7356046 + 03 
0.3465396-01 
0.7356046+03 
0.7356016+03 
0.6549366+03 
0.238237E+00 
0.2288346+04 
0. 

0. 2193596+02 


0. 

0.161236E+01 

0. 

0. 

0. 

0. 

0.1946496+01 

0. 

0. 1946496+01 
0. 1949876+01 
0. 3465396-01 
0.2673226+04 
0.1000006+01 
0. 

0.6549366+03 


0. 

0. 

0. 1019166+04 

0. 

0. 

0. 

0.101916E+04 
0.6330006+03 
0. 2697216+04 
0. 2697216+04 

0. 

0.3458856+01 
0.2355136+04 
0.2214276+04 
0. 3465396-01 


0.245654E+03 

0. 

0.800000E+01 

0. 

0. 

0. 

0. 8000006+01 

0. 

0.3600346+01 
0.3600346+01 
0.4800Q0E— 0 1 
0. 6104756+03 
0.1982046+01 
0.4507386+05 
0.6291566+05 


0. 

0. 

0.2456546+03 

0. 

0. 

0. 

0.2456546+03 
0 . 1 OCOOOE + 0 1 
0.7356016+03 
0 .7356016 + 03 
0.5794336+03 
0.2511016+00 
0 .22 8834E + 04 
0. 

0.6291566+05 


0. 

C. 

0.1612366+01 

0. 


C. 1612366+01 

0. 

0. 1949876+01 
0. 1949876 + 01 

0. 

0 . lOOOCOE+Ol 
C . L78418E+05 
C. 1255166+01 


Off- design . - In the following cases, only the input data that are changed are printed 
out as input. The other data (normal design-case printout, p. 23) are not affected. The 
common variables are not repeated because IDES was set to zero internally in the pro- 
gram. That printout is eliminated and the design printout converts to the normal off- 
design printout format. 

Case 1: The engine is operating at a reduced turbine inlet temperature T4 at a sea- 
level-static condition. The only input change required is T4. 


tD(l), 14=2660, *L PART POWER ENGINE OPERATION — OFF-DESIGN 
* RESULTS NORMAL OFF-DESIGN OUTPUT 


OUTPUT 


AM= 0. 

PCNF 

0. 8432076+02 
PCNC 

0*94939 KE + 02 
T 2 

0.51 866&E+03 
PCBLF 

0. 

PC6LHP 

0. 

WA3 

0* 474 19 1£ +03 
TFFHP 

0. 

TFFLP 

0*311 322E+03 

pceiou 

0. 

MAD 

0. 

ETAF 

0.843568E+00 
T 6 

0.219476E+04 
T 7 

0.21947 6E+04 
P S 8 

0. 14522 RE + 0 1 
PS28 

0. 

BYPASS 

0. 

CVMNOZ 

0.97727 3E + 00 


AL TP = 

CNF 

0.843207E+00 

CNC 

0. lOOOOOE+OL 
P2 

0* 100000E+C1 
BLF 

0. 

BLHP 

0. 

WF0 

0. 13372 7E+ 02 
CNHP 

0. 

CNLP 

0.163491E+01 

BLDU 

0. 

WFD 

0. 

&TAC 

0. 100000E+01 
P6 

0. 278698E+01 
WFA 

0. 

AM 8 

0. 100000E+01 
AM28 

0. 

HPEXT 

0. 

VJM 

0.202425E+04 


0. T4 = 

2F 

0.766751E+00 
2 C 

0. lOOOOOE+OX 
T21 

0 .91862 4t +03 
PC8LC 

0.970000E-01 

PCBLLP 

0. 100000E+01 
WG4 

0.487563E+03 

DHTCHP 

0. 

OHTCLP 

0.169092E-01 
T 24 

0. 

WG24 

0.525128E+03 

ETATHP 

0.100000E+01 

PS6 

0.269024E+01 

WG7 

0.538501E+03 

V8 

0. 207L3 1E+04 
V28 

0. 

WFT 

0. 133727E+02 
CVDN02 

0. 


2660.00 

PRF 

0. 584906E+01 
PRC 

0* 100000E+01 
P21 

0. 584906E+01 
BLC 

0.509374E+02 

8LLP 

0* 509 374E+02 
FAR4 

0.2820116-01 

DHTC 

0. 

OHTF 

0. 104 294E+03 
P24 

0. 

FAR24 

0. 

ETATLP 

0. 907 545E+00 
AM6 

0. 2 38077E+00 
FAR7 

0. 254656E-01 
PS9 

0. 145 228E + 01 
PS29 

0. 

WGT 

0. 538 501E+03 
VJD 

0. 


WAFC 

0.525 128E+03 
W ACC 

0. 1 19482E+0 3 
T3 

0.91861 5E+0 3 
PCBLOB 


ETARs 1.C000 
WAF 

0.525128E+02 

MAC 

0. 525128E+03 
P3 

0. 584906 E + 0 1 
BLOB 


0. 

T 4 

0. 2660006+04 
ETAB 

0. 985000E+0 0 
T5 

0.2660006+04 

T55 

0.2194766+04 
T 25 

0. 9186246+03 
ETAO 

0. 

AM55 

0. 238O77E+0C 
V6 

0. 525868E+0 3 
ETA A 

0. 

AM9 

0.1 OOOOOE+O 1 
AM29 

0. 

VA 

0. 

FGM 

0.338801E+05 


0. 

P4 

0. 54962 1 E+0 1 
DPCOM 

0. 603254 E— 0 1 
P5 

0. 54962 1 E+0 1 
P55 

0.2786986+01 

P25 

0. 584906E+ 01 
DPDUC 

0. 

AM25 

0. 

WG6 

0. 53850 1 6+ C 3 
DPAFT 

0. 4831026-C1 
V9 

0.20713 i E+04 
V29 

0. 

FRO 

0. 

FGP 

0. 821 708 E + 04 


MAIN SCNIC CONVERGENT NOZZLE FG= 42097.19 FN= 42097.19 

DUCT SHOCK OUTSIDE C-D NOZZLE 


SFC= 1. 143-re 


CONVERGED AFTER 14 LOOPS 


Case 2: The engine is operating at design turbine inlet temperature at sea- level- 
static condition. The engine components must always be matched at the desired turbine 
inlet temperature prior to running the engine at afterburning conditions. 
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*011)* T4=3?60., * SET UP FUR AFTERBURNER OPERATION 


OUTPUT 

AM = 0. 

ALTP = 

0. T4= 

3260.00 


6TAR= l.COOO 


PtNF 

CNF 

ZF 

PRF 

WAFC 

WAF 


0# 1 0000CE + 03 

0.1000006+01 

0.833333E+00 

0.8000006+01 

0. 633000E + 0 3 

0. 63300CE+C3 


PCNC 

CNC 

zc 

PRC 

WACC 

WAC 


0.10000QE+03 

O.IOOOOOE+Ol 

0 . 

0. 100000E+01 

0.110915E+03 

0.63300CE+C3 


T 2 

P2 

T21 

P21 

T3 

P3 


0 .5 1866BE+03 

0.100000E+01 

0.1019L6E+04 

0.8000006+01 

0.1019166+04 

0. 800000 E+01 


PC0LF 

8LF 

PCBLC 

BLC 

PCBLOB 

BLOB 


0 . 

0 . 

0.970000E-01 

0. 6140106+02 

0 . 

0 . 


PCBLHP 

BLHP 

PCBLLP 

BLLP 

T4 

P4 


0 . 

0 . 

0.100000E+01 

0. 6 14010E+02 

0.326000E+04 

0.755200E+01 


W A3 

WFB 

WG4 

FAR4 

£TA8 

UPCOM 


0.571 599E+03 

0.219359E+02 

0. 5935J5E+03 

0.383764E-01 

0.9850006+00 

0. 56000CE- C 1 


TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 


0 . 

0 . 

0 . 

0 . 

0.3260006+04 

0. 755200E+U1 


TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 


0. 30534 7E+03 

0. 1751426+01 

0.171750E-01 

0. 129830E+03 

0.2697216+04 

0.378187E+C1 


PCOLDU 

BLOU 

T24 

P24 

T 25 

P25 


0 . 

0 . 

0 . 

0. 

0 . 1019166+04 

0. 800000E+ C 1 


HAD 

WFD 

WG24 

FAR24 

ETAO 

DPDUC 


0 . 

0 . 

0. 633000E+03 

0 . 

0 . 

0 . 


ETAF 

ETAC 

ETATHP 

ETATLP 

AMS 5 

AM25 


0. 82900CE+00 

0. 100000E+01 

O.IOOOOOE+Ol 

0. 903000E+00 

0.23B190E+00 

0 . 


Tfc 

P6 

PS6 

AH6 

V6 

WG6 


0.26972 IE+04 

0. 378187E+01 

0.3652256+01 

0. 238 190E+00 

0. 579408E+0 3 

0. 654 936 E + 03 


T7 

UFA 

KG 7 

FAR 7 

ETAA 

OPAFT 


0.2697216+04 

0. 

0.654936E+03 

0.34S539E-01 

0 . 

0. 480000E- C 1 


PS8 

AMS 

V8 

PS9 

AM9 

V9 


0.198204E+01 

0. 100D00E+01 

0. 228834E+04 

0. 1 98204E+01 

O.IOOOOOE+Ol 

0.2288346+04 


PS28 

AM28 

V28 

PS29 

AM29 

V29 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 


0 . 

0 . 

0.21 93596+02 

0. 654 936E+03 

0 . 

0 . 


CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 


0.96 7632E +00 

0.221427E+04 

0 . 

0. 

0.450738E+05 

0.1784106+05 

M A I N SCNI^ 

convergent nozzle 

FG= 62915.60 


FN= 62915.60 


SFC= 1.25516 

DUCT SHOCK 

OUTSIDE C-D NOZZLE 






CONVERGED 
o. 

AFTER 1 LOOPS 
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Case 3: The engine is operating at maximum design afterburner temperature at 


sea- level- static condition. Once the engine components are matched at the desired tur- 
bine inlet temperature, the engine performance for any afterburner temperature that is 
greater than the turbine exit temperature may be calculated, 

A new value of A8 is computed when afterburning to account for the temperature, 
pressure, and mass flow changes. A9 is allowed to float to provide for complete expan- 
sion to PS9 = PSO at station 9, The new values of A8 and A9 are printed at the top of the 
normal off-design output page. The value of 1AFTBN is set to zero after each case; 
therefore, IAFTBN = 1 must be used for each afterburning case. 


$DllJ»T4=3260 f T7=3560. I AF TBN= 1 » * AFTERBURNER 
* RESULTS NORMAL OFF-DESIG, 

NOZZLE DESIGN A8= 0. 10260896E+02 

0P6RAT I ON AT 06SIGN TEMP 
N OUTPUT 

AM8= 0.100000006+01 A9= 0.: 

L23340226+02 

AM9= 0.151173566+01 

CUT PUT AM= 0. 

ALTP = 

0. T4= 

3260.00 

T7= 3560.00 

ETAR* l.COOO 

PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0. 10000 OE+03 

0. 1000006+01 

0. 8 33333E+00 

0. BOOOOOE+Ol 

0.6330006+03 

0.63300CE+C3 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.1 OCCOCE+03 

0. 100000E+01 

0 . 

0* 100000E+01 

0.1109156+03 

0.63300C £ + 03 

T 2 

P2 

T21 

P21 

T3 

P 3 

0.5 LB668E + 03 

O.lOOOOOfc+Ol 

0.101916E+04 

0. 800000E+01 

0.1019166+04 

0.600000E+01 

PCBLF 

BLF 

PCBLC 

BLC 

PCBLOB 

BLOB 

0 . 

0 . 

0. 970000E-01 

0.614010E+02 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLLP 

BLLP 

T 4 

P4 

0 . 

0 . 

0. 100000E+01 

0. 614010E+02 

0*3260006+04 

Q.755200 E+C 1 

K A3 

WFB 

WG4 

FAR4 

ETAB 

DPCOM 

0.5715996+03 

0.2193596+02 

0.593535E+03 

0. 3837646-01 

0.98500GE+00 

0.56000CE-01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0 . 

0 . 

0 . 

0, 

0.326000E+04 

0.75520C6+C1 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.3053476+03 

0.17S142E+O1 

0.1 7 1750E-01 

0.129830E+03 

0.269721 E+ 04 

0.378 187 6+ Cl 

PCBLDU 

BLDU 

T24 

P24 

T25 

P25 

0 . 

0 . 

0 . 

0 . 

0.101 91 6E+04 

0.80000C6+C1 

WAD 

WFO 

WG24 

FAR 24 

ETAO 

DPDUC 

0 . 

0 . 

0 . 633000E+03 

0 . 

0 . 

0 . 
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ETAF 

ETAC 

ETATHP 

O.029OOOE+OO 

0.100000E+01 

0.100000E+01 

T 6 

P6 

PS6 

Q.269721E+04 

0.3781676+01 

0.365225E+01 

T 7 

WFA 

WG7 

0.356000E+04 

0.106971F+02 

0. 665633E +03 

PSd 

AH8 

V8 

0. 19667 lE+Ol 

O.LOOOOOE+Oi 

0.261 777E+04 

PS28 

AM28 

V28 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

0 . 

0 . 

0. 326330E+02 

CVMNOZ 

VJM 

CVDNOZ 

0.977004E+00 

0.360752E+04 

0 . 


ETATLP 

AM? 5 

AM2 5 

0.903000E+00 

0.238 190E+QC 

0 . 

AM6 

V6 

WG6 

0.238 190E+Q0 

0 • 579408E+03 

0.654936E+03 

FAR7 

ETAA 

DPAFT 

0. 515530E-01 

0.900029E+0C 

0. 480GQCE-'- 1 

PS9 

AM9 

V9 

0. lOOOOOE+Ol 

0.151 174E+0 1 

0. 36924 3 E+04 

PS2 9 

AM29 

V29 

0 . 

0 . 

0 . 

WGT 

VA 

FRD 

0. 665633E+03 

0 . 

0 . 

VJD 

FGM 

FGP 

0 . 

0. 746342E+05 

0 . 


PAIN SHOCK OUTS I Ot C-D NOZZLE FG= 74634.20 

DUCT SHOCK OUTS I Ot C-D NOZZLE 


FN= 74634.20 


SFC= 1.57406 


CONVERGED AFTER 1 LOOPS 


Case 4: The engine is operating at a subsonic Mach number (0. 7) at 25 000 feet alti 
tude with a turbine inlet temperature less than design. The performance shown is for 
A8 = A9 (i. e. , the engine is using a convergent nozzle). H desired, a convergent- 
divergent nozzle could have been simulated by using this case as a setup and having an 
additional case with NOZFLT = 1 or XMCD = 1 for complete expansion to occur. 


fDf 1 ),AM=.7,ALTP=25000,T4=2760, * PART POWER OPERATION AT CRUISE CONDITION 


* 

OUTPUT 

RESULTS NORMAL OF 
AM = 0.700 

F-DESIGN OUTPUT 

ALTP= 25000. T 4= 

2760.00 


ETAR = i.0000 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 


0.90C35ZE+02 

0.944024E+00 

0.806890E+00 

0.714555E+01 

0. 59442 8E+03 

0. 3208876+03 


PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 


0.9 3687 9E +0 2 

0. 100000E+01 

0.1 00000E+01 

O.IOOOOOE+Ol 

0.1145496+03 

0. 32083 7 6+0 3 


T 2 

P2 

T21 

P21 

T 3 

P 3 


0.4717R9E+03 

0. 51 4B53F+00 

0. 894556E +03 

0, 367891E +01 

0.894555E+0 3 

0.367891E+01 


PCBLF 

BLF 

PCBLC 

BLC 

PCBLOB 

BLOB 


0 . 

0 . 

0.970900E-01 

0.31126 1 E+02 

0 . 

0 . 


PCBLHP 

BLHP 

PC3LLP 

BLLP 

T 4 

P4 


0 . 

0 . 

0. lOOOOOE+Ol 

0. 3 11 261 E +02 

0.276000E+04 

0. 346614 E+ Cl 


W A3 

WFB 

WG4 

FAR4 

ETA8 

DPCOM 


0.2 8976 1E + 03 

0.882030E+01 

0.298582E+03 

0. 304 399E-0 1 

0.985D00E+0C 

0.578 35 2 E-01 


TFFHP 

CNHP 

DHTCHP 

OHTC 

T 5 

P5 


0 . 

0. 

0 . 

0 . 

0.276000E+04 

0. 346614E+C 1 


TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 


0.30 794 5E + 03 

0. 1713796+01 

0. 17134! E-01 

0. 1 09 754E+03 

0.227 177E+04 

0.1 736926 +< l 


PCBLDU 

BL DU 

T 24 

P24 

T 25 

P25 


0 . 

0 . 

0 . 

0 . 

0.894556E+03 

0.367891E+01 


WAD 

WFD 

WG24 

FAR 24 

ETAD 

OPDUC 


0 . 

0 . 

0.320887E+03 

0 . 

0 . 

0 . 


ETAF 

ETAC 

ETATHP 

ETATLP 

AM5 5 

AM25 


0.836023E+00 

0.100000E+01 

0.100000E+01 

0.905173E+00 

0. 238293E + 0 C 

0 . 


T 6 

P6 

PS6 

AM6 

V6 

WG6 


0.22717 7E + 04 

O.173692E+01 

0. 167666E+01 

0. 23B293E + 00 

0. 534 8 12E+0 3 

0. 329708E + 03 


T7 

WFA 

WG7 

FAR 7 

ETAA 

DPAFT 


0.22717 7E +04 

0 . 

0. 329708E+03 

0.274872E-01 

0 . 

0.482 86 3 E- 0 1 


PS8 

AMB 

V8 

PS9 

AM9 

V9 


0.906790E+0P 

0.100000E+01 

0.2 10597E +04 

0. 905 790E+00 

0. 100000E+0 1 

0. 210597E+04 


PS28 

AM28 

V28 

PS2 9 

AM29 

V29 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 


0 . 

0 . 

0. 882030E +01 

G.329708E+03 

0. 7 11 594E + 0 3 

0. 70970 7 £+04 


CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 


0.9 5 753 IE +00 

0. 201 653T + 04 

0 . 

0 . 

0. 206646E+05 

0.973258C+04 

PAIN SCNIC 

CONVERGENT NOZZLE 

FG= 30397.21 


FN= 23300.14 


SFC= 1 . 362 ' 8 


DUCT SHOCK OUTSIDE C-0 NOZZLE 
CONVERGED AFTER 7 LOOPS 


Case 5: The engine is operating at the same subsonic condition as in case 4, but at 
the design turbine inlet temperature. Afterburner operation may be added at this point. 
If a different turbine inlet temperature is desired, a new setup case, as in case 4, must 
be calculated for component matching purposes immediately prior to running the after- 
burner case. 
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$D(1) »T4=3260 t * OESIGM T4 AT FLIGHT CONDITION 


* 

OUTPUT 

RESULTS NORMAL OFF 
A*= 0.700 

-OESIGN OUTPUT 

ALTP= 25000. T4= 

3260.00 


6TAR= l.OOOC 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 


0.98425 3E+02 

0. 103200E+01 

0.856827E+00 

0.869637E+01 

0.6607466+03 

0.356688E+C3 


PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 


0.9761376+02 

0.100000E+01 

O.IOOOOOE+OI 

0. 1 OOOOOE+Ol 

0.1090076+03 

0.3566B8E+C ? 


T2 

P2 

T21 

P2I 

73 

P3 


0.471789E+03 

0.5148536+00 

0.971095E+03 

0.447735F+01 

0.971 0926+03 

0.447735E+01 


PCBLF 

BLF 

PCBLC 

BLC 

pcblob 

BLOB 


0. 

0. 

0.970000E-01 

0* 3459876+02 

0, 

0. 


PCBLHP 

BLHP 

PCBLLP 

0LLP 

T 4 

P4 


0. 

0. 

0. 1 OOOOOE +01 

G.345987E+02 

0. 32600 0E + 04 

0.423093E+C1 


W A3 

WFP 

wG4 

FAR 4 

ETAR 

OPCOM 


0.322089E+03 

0* 1259B2E + 02 

0.334688E+03 

0.39U40E-01 

0.9850006+00 

0.550366E-01 


TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 


0. 

0. 

0. 

0. 

0, 3260006+04 

0.423093E+01 


tfflp 

CNLP 

DHTCLP 

DHTF 

TS5 

P55 


0. 30733 oE +03 

0.1723856+01 

0. 1714046—01 

0.126 965E+03 

0. 2696906+04 

0. 2 1 322 6 £ + 01 


PCBLDU 

BLDU 

T 24 

P24 

T25 

P25 


0. 

0. 

0. 

0. 

0. 9710956+03 

0.447735E+01 


WAD 

WFD 

WG24 

FAR24 

ETAD 

DPDUC 


0. 

0. 

0. 3566886+03 

0. 

0. 

0. 


ETAF 

ETAC 

ETATHP 

ETATLP 

AK55 

AM25 


0.8001146+00 

0.100000E+01 

0. 1 OOOOOE+Ol 

0.9045806+00 

0. 238236E+CC 

0, 


T 6 

P6 

PS6 

AM6 

V6 

HG6 


0.26969U6+04 

0.213226E+0I 

0. 20591 7E+01 

0. 238 236E+00 

0.579402E+03 

0.369236E+03 


T 7 

WFA 

WG7 

FAR 7 

ETAA 

DPAFT 


0.26969GE +04 

0. 

0.3692866+03 

0.353199E-01 

0. 

0. 480007E-CI 


PS8 

AM8 

V8 

PS9 

AM9 

V9 


0.11178 It +01 

o.ioooooe+oi 

0.228808E+04 

0.1U781E+01 

0.1000006+01 

0.228808E+04 


PS26 

AM28 

V2B 

PS29 

AM29 

V29 


0. 

0. 

0. 

0. 

0. 

0. 


BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 


0. 

0. 

0. 1 25982E +02 

0. 3692866+03 

0.7115946+0 3 

0.78388 8 1+ C4 


CVMNOZ 

VJM 

CVONOZ 

VJD 

FGM 

FGP 


0.94485 3E +00 

0.2I6190E+04 

0. 

0. 

0,2481386+05 

0.135664E+C5 

MAIN SCNIC 

CONVERGENT NOZZLE 

FG= 38380.11 


FN= 30491.23 


SFC= 1.46743 


DUCT SHOCK OUTSIDE C-D NOZZLE 
CONVERGED AFTER 14 LOOPS 

Case 6: The engine is now operating at a supersonic flight Mach number (2. 5) at an 
altitude of 50 000 feet. The engine components are matched with an engine nozzle throat 
area A8 equal to the sea- level-static design value. This case is a setup case for match- 
ing the components only. 


$Dtl>»AM=2.5,ALTP=50000,T4=3260.* SET UP FOR MATCHING ONLY 


AM= 2.500 
PCNF 

0. 832186E *02 
PCNC 

0.1 14 102E + 03 
T 2 

0.B75661E+03 

PCBLF 

0. 

PCRLHP 

0. 

WA3 

0.456195E+03 

TFFHP 

0. 

tfflp 

0.318769E+03 

PtBLDU 

0. 

HAD 

0. 

ETAF 

0.8 1543 7E *00 
T 6 

0.2 7401 CE + 04 
T 7 

0.274010E+04 

PS8 

0*1 5857 66+01 
0 

0. 

0.83576 96 *00 


ALTP= 50000. 
CNF 

0. 6404676+00 
CNC 

0. 100000E+01 
P2 

0.1702756+01 
RLF 

0. 

BLHP 

0. 

HF6 

0. 1 53057E+02 
CNHP 

0. 

CNLP 

0. 14575 1E+01 
BLDU 

0. 

WFD 

0. 

6TAC 

0. 100000E+01 
P6 

0.302911E+01 
HFA 

0. 

AM8 

0.100000E+01 


T4 = 
ZF 

0. 665972E +00 
ZC 

O. 1000006+01 
T21 

0.132686E+04 

PCBLC 

0.9 700006-01 
PC9LLP 

0. 1000006+01 
WG4 

0.471501E+03 

DHTCHP 

0. 

DHTCLP 

0. 1607346-01 
T24 

0. 

WG24 

0. 5051996+03 
ETATHP 

0.1000006+01 

PS6 

0.292530E+01 

HG7 

0, 5205056+03 
V8 

0.230699E+04 


3260.00 

PRF 

0. 361 453E+0 1 
PRC 

0. 1 OOOOOE+Ol 
P2L 

0. 6 15 464E+01 
8LC 

O.490043E+02 

HLLP 

0.4900436+02 

FAR4 

0.335508E-01 

DH7C 

0. 

DHTF 

0. 12L 7Q4E+03 
P24 

0. 

FAR 24 

0. 

ETATLP 

0.909909E+00 

AM6 

0. 238010E+00 
FAR 7 

0. 302964E-01 
PS9 

0*1585786+01 


WAFC 

Q. 385510E+03 
WACC 

0.131 2896+03 
T3 

0.1326866+04 

PCRLOB 

0. 

T 4 

0.3260006+04 

ETAR 

0.9850006+0C 
T 5 

0.326000E+04 

T55 

0.274010E+04 
T 25 

0, 1 32686E+04 
ETAD 

0. 

AM55 

0.238010E+00 

V6 

0.5839466+03 

ETAA 

0. 

AM9 

0. 1 OOOOOE + O 1 


E TAR = 0.6703 
HAF 

0.5051996+03 

WAC 

0. 505 199 E+ C 2 
P3 

0.615464E+C1 

BLOB 

0. 

P4 

0. 574667t+01 
DPCQM 

0*66286 7 E-0 1 
P5 

0.574667E+C1 

P55 

0.30291 1E+0I 
P25 

0. 61546 46 + C 1 
DPDUC 

0. 

AM 2 5 

0. 

WG6 

0.520505E+C3 

DPAFT 

0.48004 7E-0 1 
V9 

0. 2306996* 0* 


PS28 

AM28 

V28 

PS29 

AM29 

V29 


0. 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 


0. 

0.1530576+02 

0*5205056+03 

0.242123E+04 

0.3801846+05 

CVMNOZ 

VJM 

CVONOZ 

VJD 

FGM 

FGP 


MAIN SCNIC CONVERGENT NOZZLE 
DUCT SHOCK OUTSIDE C-U NOZZLE 


0.1 92812E+04 
FG= 57923.74 


0.3U927E + 05 


FN= 19905.36 


0.26731 16+C5 
SFC= 2.76813 


CONVERGED AFTER 
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Case 7: The performance data from this case reflect an expansion to the maximum 
attainable area ratio for A9/A8, thus simulating a convergent-divergent nozzle. Per- 
formance is calculated such that the nozzle static pressure PS9 is equal to the free- 
stream static pressure PSO. This is accomplished by setting NOZFLT equal to 1. The 
improvement in thrust and specific fuel consumption from case 6 should be noted. 

Although engine performance is calculated as if complete expansion occurred 
(A9/A8 = 3. 449), a performance penalty from the fully expanded case resulted because 
this particular nozzle has a physical expansion limit A9/A8 of 2. 15. This means that 
the nozzle has a lower-than-optimum thrust coefficient, resulting in a performance 
penalty. 


$D(1),N0ZFLT=1,+ PERFORMANCE DATA WITH MAXIMUM ATTAINABLE NOZZLE RATIO 


NOZZLF DESIGN 
ARAT I 0= 3.449 

OUTPUT 


A8= 0.85821256E+01 AM8= 0. 10000000F+01 
OUT OF RANGE, USE DATA FOR 2.150 


A9= 0. 295988 86 E+ 02 


AM9= 0.27C20654E+01 


AM= 2.500 

ALTP= 50000. T4= 

3260. 00 


ETAR= 0.< 

PCNF 

CNF 

ZF 

PRF 

W AFC 

WAF 

0.332186E+02 

0. 64Q467E+00 

0.665972E+00 

0. 361 453E+01 

0. 385 51 OE+O 3 

0. 505 199E+0 3 

PCNC 

CMC 

ZC 

PRC 

W ACC 

WAC 

0.114102E+03 

0. 100000E+01 

0* 100Q00E+01 

0. 100000E+01 

0. 1 31 289E+0 3 

0. 505199E+ 03 

T 2 

P2 

T21 

P21 

T3 

P3 

0.87566 1E+03 

0. 170275E + 01 

0. 132686E +04 

0.615464E+01 

0.1 32686E+04 

0.615464E+01 

PC8LF 

BLF 

PCBLC 

8LC 

PCBL03 

BLOB 

0 . 

0 . 

0.970000E-01 

0.490043E+02 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLLP 

0LLP 

T4 

P4 

0 . 

0 . 

0. 100000E+01 

0.490043E+02 

0.326000E+04 

0. 57466 7£+ C 1 

WA3 

WFB 

WG4 

FAR 4 

ETAB 

DPCOM 

0.45619 :>E + 03 

0. 153057E+02 

0.471501E+03 

0.335508E-01 

0. 985000E+00 

0.66286 7E- 0 l 

TFFHP 

CN HP 

DHTCHP 

DHTC 

T 5 

P5 

0. 

0. 

0 . 

0 . 

0.326000E+04 

0. 57466 7E + C 1 

TFFLP 

Cf4LP 

DHTCLP 

DHTF 

T55 

P55 

0.31 S769E+03 

0. 145751 E+01 

0.160734E-01 

0.121 704E+03 

0.274010E+04 

0. 30291 1E+0 1 

PCHLOU 

BLOU 

T24 

P24 

T25 

P25 

0 . 

0 . 

0 . 

0 . 

0.1 32686E+04 

0.615464 E+01 

WAD 

WFO 

WG24 

FAR 2 4 

ETAO 

DPOUC 

0 . 

0 . 

0.505199E+03 

0 . 

0 . 

0 . 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM25 

0.8 15437E+00 

0. 100Q00E+01 

0.1 00000E+01 

0. 909909E+00 

0.238010E+00 

0 . 

T 6 

P 6 

PS6 

AMS 

V 6 

WG6 

0. 27401 OE+04 

0. 302911 E+01 

0.292530E+01 

0.238010E+00 

0. 583946E + 0 3 

0. 520505E+03 

T7 

WF A 

WG7 

FAR 7 

ETA A 

OPAFT 

0.2 7401 0E+04 

0 . 

0.520505E+03 

0.302964E-01 

0 . 

0.480047 E-C 1 

PS8 

AMS 

V8 

PS9 

AM9 

V9 

0.1 58634E+0 1 

0. 100000E+0 1 

0.2 30699E +04 

0, 1 14456E+00 

0. 270307E + 0 1 

0. 46258 1 E+04 

P S28 

AM2 8 

V28 

PS29 

AM29 

V29 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0 . 

0 . 

0. 153057E+02 

0.520505E+03 

0.242123E+04 

0. 380184 E + C5 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.95 H966E+00 

0. 443600E+04 

0 . 

0 . 

0.717646E+0 5 

0 . 

NOZZLE 

FG= 71764.62 


FM= 33746.24 


SFC= 1.62279 


DUCT SHOCK OUTSIDE C-D NOZZLE 
CONVERGED AFTER 1 LOOPS 


Case 8: The engine is operating in the supersonic flight condition with partial after- 
burning. This case illustrates that for an afterburning condition (IAFTBN = 1), the pro- 
gram automatically expands the nozzle so PS9 is equal to PSO. There is no need to input 
NOZFLT = 1 as in the previous case. 
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SD(1),T4=3260,T7 = 2900, IAFT8N = 1.* PARTIAL AFTERBURNING DURING SUPERSONIC OPgR. 


NOZZLE DESIGN A8= 0. 88924085E+01 AM6 

.* 0.10000000E+01 A9= 0. 308458 76E+02 

AM9= 0.26 97755 9E*0j 

ARA T 10= 3.469 OUT OF RANGE .USE DATA FOR 2.150 





OUTPUT AM» 2.500 

AL TP= 5000C 

i. T4 = 

3260.00 

T7 = 2900.00 

ETAR= C.8703 

PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0. 8 32 186E+02 

0.640467E+00 

0.665972E+00 

0.3614536+01 

0.3855106+03 

0.505199E+C3 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0.114102E+03 

O.lOOOOOfc+Ol 

0. 100000E+01 

0. 100000E+01 

0.1 31 289E+03 

0. 505 199E + 03 

T2 

P2 

T21 

P21 

T3 

P3 

0. 87566 IE+03 

0. 170275E+0I 

0. 132686E+04 

0.615464E+01 

0.132686E+04 

0.615464 E+0 1 

PCBLF 

BLF 

PCBLC 

BLC 

PCBLOB 

BLOB 

0. 

0. 

0. 9700006-01 

0. 490043E+02 

0. 

0. 

PCBIHP 

BLHP 

PCBLLP 

8LLP 

T4 

P4 

0. 

0. 

o.ioooooe+oi 

0.490 043 E+0 2 

0.326000E+04 

0. 57466 76+ Cl 

WA3 

WFB 

WG4 

FAR4 

ETA8 

DPCOM 

0.45619 5E + 03 

0.153057E+02 

0.4715016 +03 

0.335508E-01 

0.9B5000E+0C 

0.662 86 7F- C 1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0. 

0. 

0. 

0. 

0.326000E+04 

0.5746676+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.318769E+03 

0. 14575 IF + 01 

0.160734E-01 

0. 121704E+03 

0.274010E+04 

0.30291 1 E+L 1 

PCBLDU 

BLDU 

T24 

P24 

T 25 

P25 

0. 

0. 

0. 

0. 

0.132686E+04 

0.6154646+01 

WAD 

WFO 

WG24 

FAR24 

ETAO 

DPOUC 

0. 

0. 

0. 505199E +03 

0 . 

0. 

0, 

ETAF 

ETAC 

ETATHP 

FTATLP 

A«55 

AM25 

0*8 15437E+00 

0, XOOOOOE + Ol 

0. 100000E+01 

0. 9U9909E+00 

0.2380106+00 

0. 

T 6 

P6 

PS6 

AM6 

V6 

NG6 

0,2 7401 CE +04 

0. 30291 1E+01 

0.292530F+01 

0. 238010E+OQ 

0.5839466+03 

0.520505E+C3 

T 7 

wfa 

WG7 

FAR 7 

ETAA 

DPAFT 

0.29CCOOE+04 

0.160194E+01 

0.522107E+03 

0. 3346736-01 

0.8668276+00 

0.48004 76-01 

PS8 

AMS 

V6 

PS9 

AM9 

V9 

0. 1 5850 6E + Q1 

0. 100000E +01 

0. 237121E +04 

0.1144566+00 

0.2697766+0 1 

0.4768146+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0. 

0. 

0. 

0 . 

0. 

0. 

BYPASS 

HP EXT 

WFT 

WGT 

VA 

FRO 

0. 

0 . 

0.169076E+02 

0. 522 107E+03 

0 .242 123E+04 

0.3801846+05 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.959036E+00 

0.457282E+04 

0. 

0. 

0.7420596+0 5 

0. 

MAIN SHOCK OUTSIDE C-0 NOZZLE 
DUCT SHOCK OUTSIDt C-D NOZZLE 

FG= 74206.85 


FN= 36187.47 


SFC= 1.6 62 Cl 


CONVERGED AFTER 1 LOOPS 


Case 9: The engine is operating in the supersonic condition at the maximum design 
afterburner temperature. 


tOUl ,T4=3260,T7=3560, IAFTBN=1, * MAX AFTERBURNING AT SUPERSONIC OPERATION 
NOZZLE DESIGN A8= 0. 10150120E+02 AM8= 0. 10000000E+01 A9= 0. 3&28199&E+02 AM9= 0. 268 577186 + 0 1 

ARAT 1 0= 3.575 OUT OF RANGE, USE DATA FOR 2.150 

OUTPUT AM= 2.500 ALTP= 50000. T 4= 3260.00 T7= 3560.00 E TAR = C.8703 

PCNF CNF ZF PRF WAFC WAF 

0.8 32 18 6E + 02 0.6404676+00 0.665972E+00 G.361453E+01 0.385510E + 03 0.5051996+03 

PCNC CNC ZC PRC WACC WAC 

0.114102E+03 0. 100000E+01 0.100000g+Ql 0.100000E+01 0.131289E+03 0.505199E+C3 

T 2 P2 T21 P21 T 3 P3 

0.8 7566 iE + 03 0.170275E+01 0.1326866+04 0.615464E+01 0.132686E+04 0.615464E+C1 

PCBLF 8LF PCBLC BLC PCBLOfi BLOB 

0. 0. 0. 970000E-01 0.490043E+02 0. 0. 

PCRLHP BLHP PCBLLP BLL P T4 P4 

0. 0. 0. 100000E +0 1 0.490043E+02 0.326000E+04 0.574667E+C1 

W A3 WFB WG4 FAR4 FTAB DPCOM 

0.456195E+03 0.153057E+02 0. 4715016+03 0. 3355086-01 0.9R5000E+00 0.6628676-01 

TFFHP CNHP OHTCHP OHTC T 5 P5 

0. 0. 0. 0. 0. 326000E+04 0.5746676 + C1 

TFFLP CNLP DHTCLP DHTF T55 P55 

0,31876 9E +03 0.145751E+01 0.160734E-01 0.121704E+03 0.274010E+04 0.302911E+C1 

PCBLUU BLOU T24 P24 T25 P25 

0. 0. 0. 0. 0. 132686E+04 0.615464E+01 

WAD WFD WG24 FAR24 E TAD DPOUC 

0. 0. 0.5051996+03 0. 0. 0. 

ETAF ETAC ETATHP ETATLP AM55 AM25 

0.8 1 5437E+00 0.100000E+01 0.100000E+01 0.909909E+00 0.238010E+00 0. 

T 6 P6 PS6 AM6 V6 WG6 

0.2 7401 UE +04 0. 30291 1E + 01 0.292530E + 01 0.233010E+00 0.583946E + 03 0.5205056+03 

T 7 UFA WG7 FAR 7 ETAA DPAFT 

0. 3 56000E +04 0.794422E + 01 0.528449E+03 0.460213F-01 0.90B862E + 0C 0.480047E-01 

P SB AM8 V8 PS9 AM9 V9 

0. 1 5 75 1 1E + 0 1 0.100000E+QI 0.261903E+04 0.114456E+00 0.268577E+01 0.532344E + C4 

P S 28 A«28 V28 PS29 AM29 V29 

0 . 0 . 0 . 0 . 0 . 0 . 

BYPASS HPEXT WFT WGT VA FRD 

0. 0. 0*2 32499E+02 0.5284496+03 0.242123E + 04 0.3801846+C5 

CVMNOZ VJM CVDNOZ VJD FGM FGP 

0.9 593B0E +00 0.510720E + 04 0. 0. 0.838843E + 05 0. 

MAIN SHOCK OUTS IOE C~D NOZZLE FG= 83884.25 FN= 45B65.87 SFC= 1.82438 

DUCT SHOCK OUTSIDE C-D NOZZLE 

CONVERGED AFTER 1 LUOPS 
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Case 10: Ability to fix the mechanical shaft speed PCNF is a revision to reference 2 
which was supplied by its author. This engine operation method is accomplished by set- 
ting the control MODE equal to 3. MODE = 3 allows the engine to run at some desired 
value of shaft speed while the primary stream area A8 is varied. The value of turbine 
inlet temperature necessary to properly match the components is calculated in the pro- 
gram. 

The supersonic flight condition is used for illustrative purposes. Any condition de- 
sired could have been used, hi case 9, the outer compressor shaft speed was consider- 
ably less than 100 percent when the design turbine inlet temperature T4 and area A8 were 
used. By using MODE = 3 instead of MODE = 0, the design T4 was exceeded when a 100- 
percent shaft speed was specified. A8 was increased by 1 percent. An attempt was made 
to run the design value of A8; but the T4 exceeded the program limit value of 4000° R and 
the components did not match. The limit value of a 4000° R temperature is used because 
the equations for the gas properties do not account for the dissociation of the products of 
combustion which would become significant at higher temperatures. 


SD{ 1 > * M0DE = 3» PCNF= 100* A8=8.586»1.01*NOZFLT=0** SETUP FOR 100 PERCENT COMP. SPEED 


OUTPUT 


AM= 2.500 

AL TP- 50000. T4= 

3962.97 


ETAR = 0.8703 

PCNF 

CNF 

ZF 

PRF 

WA'FC 

WAF 

0.1CC000E+03 

0. 769621 E+00 

0.7363436+00 

0.502448E+01 

0.473919E+03 

0.621 058E+C3 

PCNC 

CMC 

ZC 

PRC 

WACC 

WAC 

0. 1 19204E+03 

0.1000006+01 

0.1000006+01 

0. 100000E+01 

0.121299E+03 

0.621058E+C3 

T 2 

P2 

T21 

P21 

T3 

P3 

0.87566 16 + 03 

0. 170275E+01 

0.144819E+04 

0.8555436+01 

0. 144819E+04 

0.8555436+01 

PCBLF 

BLF 

PCBLC 

8LC 

PCBLOB 

BLOB 

0 . 

0 . 

0. 970000E-01 

0. 6024266+02 

0 . 

0 . 

PCBLHP 

BLHP 

PCBLLP 

8LLP 

T 4 

P4 

0 . 

0 . 

0.1000006+01 

0.602426E+02 

0.396297E+04 

0. 803147E+0 1 

W A3 

WFB 

WG4 

FAR4 

6 TAB 

DPCOM 

0.5608156+03 

0. 2596706+02 

0.5867826+03 

0. 463022E-01 

0. 985000E+00 

0.612431E-C1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0 . 

0 . 

0 . 

0 . 

0.396297E+04 

0.8031476+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0.312963E+03 

0.1588516+01 

0.1674396-01 

0.1536926+03 

0. 332634E+04 

0.412729E+C1 

PC8LDU 

BLDU 

T24 

P24 

T 25 

P25 

0 . 

0 . 

0 . 

0 . 

0.1448196+04 

0.855543E+0 1 

WAD 

WFD 

WG24 

FAR24 

ETAD 

DPOUC 

0 . 

0 . 

0. 62 1 058E+03 

0 . 

0 . 

0 . 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM5 5 

AM25 

0.8403966+00 

0.100000E+01 

0. 100000E+01 

0.9033626+00 

0. 240982E+00 

0 . 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 3326346+04 

0.412729E+01 

0. 398387E+01 

0.2409826+00 

0.647423E+03 

0.64702 5 E+0 3 

T 7 

WF A 

WG7 

FAR 7 

ETAA 

OPAFT 

0. 332634E+04 

0 . 

0. 647025E+03 

0.4181096-01 

0 . 

0.482537E-0 1 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0. 21740 7E + 01 

0.100000E+01 

0. 2534166+04 

0.2174076+01 

0, 100000E + 0 1 

0.253416E+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

taFT 

WGT 

VA 

FRD 

0 . 

0 . 

0.2 59670E + 02 

0.6470256+03 

0.2421236+04 

0.4673726+05 

C VMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.801550E+00 

0.2031266+04 

0 . 

0 . 

0. 408489E+05 

0.377970E+05 


MAIN SCNIC CONVERGENT NOZZLE FG = 78645.91 FN = 51908.72 

CUCT SHOCK OUTSIDE C-D NOZZLE 


SFC= 2.92964 


CONVERGED AFTER 7 LOOPS 


Case 11: This case indicates that if MODE = 3 and the area is changed, T4 will 
change. The nozzle throat area has been opened to 120 percent of its design value 
(A8 = 8. 586 x 1. 20). The engine components match at a point where the calculated T4 is 
less than the design value and the compressor shaft speed is 100 percent of design. Area 
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variation A8 and compressor speed variations are the options that are available when 
MODE = 3. The engine components are matched in all setup cases with the engine 
operating with the throat area A8 equal to A9 as if the engine has a convergent nozzle. 

In order to return to a convergent nozzle, an input of the control variable NOZFLT = 0 
is required when a new setup case is run because NOZFLT is not reset to zero internally. 
This case is a setup case and illustrates only one of the many options available for oper- 
ation of the GENENG program. 


SOU) ♦NDZFLTM,* PERFORMANCE WITH 8FST NOZZLE AREA RATIO 


NOZZLE DESIGN 


A8= 0.868011 34E+01 AM8= 0. 10000000E+01 A9= 0 . 3718 3272E + 02 


ARAT 10= 4.284 OUT UF RANGE. USE DATA FOR 2.150 


CUTPUT AM= 2.500 

ALTP = 50000. T 4= 

3962.97 

PCNF 

CNF 

ZF 

PRF 

0. 1 OOOOOE+03 

0.769620E+00 

0.7363436+00 

0. 502 448E+01 

PCNC 

CNC 

ZC 

pr: 

0.1L9204E+03 

0. 100000E+01 

0.1 OOOOOE+Ol 

0.100000E+01 

T 2 

P2 

T21 

P21 

0.87566 1E+03 

0.170275E+01 

0.144819E+04 

0. 855 543E+01 

PCBLF 

BLF 

PC8LC 

bl; 

0. 

0. 

0. 970000E-01 

0.602426E+02 

PC8LHP 

BLHP 

PCBLLP 

8LLP 

0. 

0. 

o.ionoooE+oi 

0. 602 426E + 02 

W A3 

WFB 

WG4 

FAR4 

0.56081 5E + 03 

0. 259670E+ 02 

0.586 T82E+03 

0*463 022E-0 1 

T-FFHP 

CNHP 

DHTCHP 

DHTC 

0. 

0. 

0. 

0. 

TFFLP 

CNLP 

DHTCLP 

DHTF 

0.31296 3E + 03 

0.1 5985 1 E+01 

0.16 7439E-01 

0.153692E+03 

PCBLDU 

BLDU 

T24 

P24 

0. 

0. 

0. 

0. 

HAD 

WFD 

WG24 

FAR24 

0. 

0. 

0.62 1058E+03 

0. 

ETAF 

ETAC 

ETATHP 

ETATLP 

0.840396E+00 

0. 1000006+01 

0.1000006+01 

0. 908 362E+00 

T 6 

P6 

PS6 

AM6 

0.3326346+04 

0.412729E+01 

0.39B366E+01 

Q.240982E+00 

T 7 

WFA 

HG7 

FAR7 

0.332634E+04 

0. 

0.6470256+03 

0.4181096-01 

PS8 

AM8 

V8 

PS9 

0. 2172006+01 

0. 100000E+01 

0.253416E+04 

0.H4456E+00 

PS28 

AM28 

V28 

PS29 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

WF T 

WGT 

0. 

0. 

0.259670E+02 

0* 647 025E+03 

CVMNOZ 

VJM 

CVONOZ 

VJO 

0. 94801 6E+0C 

0.5020186+04 

0. 

0. 


MAIN SHOCK OUTS I Ofc C-0 NOZZLE FG=100956.46 FN= 54219.26 

CUCT SHOCK OUTSIOF C-D NOZZLE 


WAFC 

0. 4739196+03 
WACC 

0. 121 299E+0 3 
T3 

0.144819E+04 

PCRLOB 

0. 

T 4 

0.396297E+04 

ETAB 

0.9850006+00 

T5 

0.3962976+04 

T55 

0.332634E+04 
T 25 

0.1448196+04 

ETAO 

0. 

AM55 

0. 2409826+0C 
V6 

0.6474236+03 
ETA A 

0. 

AM9 

0.287 652E+01 
AM29 

O. 

VA 

0.242123E+04 

FGM 

0.1009566+06 


CONVERGED AFTER 1 LOOPS 


AM9= 0. 287652066+01 


ETAR= 0.8703 
WAF 

0.621058E+03 

WAC 

0. &2 1058E + 0 3 
P3 

0.855543E+' 1 
BLOB 

0 . 

P4 

0. 8031476+01 
DPCOM 

0. 612431 E-0 1 
P5 

0.803147E+01 

P55 

0.4127296+01 

P25 

0.855543E+C 1 
OPDUC 

0 . 

AM25 

0 . 

WG6 

0.6470256+03 

OPAFT 

0. 48253 6E- Cl 
V9 

0.529546E+04 

V29 

0. 

FRO 

0.4673726+05 

FGP 

0. 


SFC= 1.72413 


Case 12: The final example case is the performance for the previous case (11) when 
the maximum attainable area expansion is used (PS9 = PSO). 


*D(1),M0D6=3»PCNF=100,A8=8. 586+1. 20, N0ZFLT=0»* SET UP FOR 100 PERCENT 


OUTPUT 


AH = 2.500 

ALTP= 50000. T4= 

3157.72 


E TAR = O.j 

PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

0.100000E+03 

0.769620E+00 

0,6132116+00 

0. 435 150E+01 

0.4885346+0 3 

0.64021 0E+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0. 1174876+03 

0. lOOOOOE+Ol 

0.1000006+01 

0. 100000E+01 

0.1422986+03 

0.64021 CE+ C 3 

T 2 

P2 

T21 

P21 

T3 

P3 

0.9 7 566 1E+03 

0. 170275E+01 

0. 1406766+04 

0.7409526+01 

0.1406766+04 

0. 740952 E+ 01 

PCBLF 

BLF 

PCBLC 

bl: 

PCBLOB 

BLOB 

0. 

0. 

0.9700006-01 

0.6210046+02 

0. 

0. 

PCBLHP 

BLHP 

PC8LLP 

BLLP 

T 4 

P4 

0. 

0. 

0.1000006+01 

0.621004E+02 

0.3157726+04 

0.68771 8E+01 

W A3 

WFB 

WG4 

FAR4 

ETAB 

DPCOM 

0.5781106+03 

0.1748236+02 

0.595592E+03 

0. 302405E-01 

0.985O006+0C 

0. 71845 1E-0 1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0. 

0. 

0. 

0. 

0.3157726+04 

0. 68771 8E+01 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0. 3 31 15 1E + 03 

0.1779566+01 

0.1964096-01 

0* 144425E+03 

0.2580096+04 

0. 31 1 71 4E+0 1 
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PCBLDU 

BLDU 

T24 

P24 

T 25 

0. 

0. 

0. 

0. 

0.140676E+04 

WAD 

WFD 

WG24 

FAR24 

ETAD 

G. 

0. 

0.640210E+03 

0. 

0. 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

0.81031HE+00 

0. 100000E+01 

0. 100000E+01 

0.917729E+00 

0.287188E+00 

T 6 

P6 

PS6 

AH6 

V6 

0.258009E+04 

0. 31 1714E+01 

0.2961106+01 

0. 287 188E+00 

0.683 798E+0 3 

T 7 

WF A 

WG7 

FAR 7 

ETAA 

0. 25800 9E+04 

0. 

0.657693E+03 

0.2730726-01 

0. 

PS8 

AH8 

V8 

PS9 

AM9 

0.161452E+0 1 

0.100000E+01 

0.224079E+04 

0.161452E+01 

0. 100000E+0 1 

PS28 

AM28 

V28 

PS29 

AM29 

0. 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

nFT 

WGT 

VA 

0. 

0. 

0.1 74823E+02 

0.657693E+03 

0.242123E+0A 

CVMNOZ 

VJH 

CVDNOZ 

VJD 

FGM 

0.8 33962E+00 

0. 186873E+04 

0. 

0. 

0.3820016+05 


VAIN SONIC CONVERGENT NOZZLE 
DUCT SHOCK OUTS I OE C-D NOZZLE 


CONVERGED AFTER 8 LOOPS 


FG= 70907.18 


FN= 22728.66 


P25 

0.740952E+01 

DPDUC 

0 . 

AM25 

0 . 

WG6 

0. 65769 3 E+0 3 
DPAFT 

0. 571973E-01 
V9 

0.2240/96+04 

V29 

0 . 

FRD 

0.481785E+C5 

FGP 

0.327071E+05 
SFC= 2.769C3 


Two-Spool Turbojet 

Design point . - An example is given for design-point operation of a two-spool turbo- 
jet. For the design point the data are printed out in three groups: (1) card images of the 
input data that were changed from the original input data, (2) results, and (3) common 
variables at the design point. The card images show two cards having $D(1), IDES = 1, 
imprinted. These two cards in sequence recall the original design inputs. This method 
can be used as many times as desired in any computer run to design a new engine. A 
typical use for this may be a study of several engines where design- point performance 
only is sufficient. Thus, only changes in engine design characteristics need be input and 
a new engine is run. Or, as in this case, the engine was changed from a single-spool 
turbojet to a two-spool turbojet by changing ISPOOL = 1 to IS POOL = 2 and by inputing the 
design pressure ratio and efficiency of the inner compressor and the design efficiency 
speed and flow function of the inner turbine. Also a change to the front compressor pres- 
sure ratio was made to have an overall pressure ratio of 8:1. The MODE was reset to 
zero (MODE = 0) from the previous cases of the single-spool turbojet engine. 


$D( 1 ) * I D6S= 1 » * FIRST OF TWO IDES=1 CARDS NECESSARY TO CHANGE DESIGN POINT 
S0mtIDE$-li * SECOND OF TWO IDES = 1 CARDS NECESSARY TO CHANGE DESIGN POINT 
I SP00L = 2 » * TWO SPOOL TURBOJET 

PRFDS=2, PRCDS=4, ETACDS=. 85, PCNCDS= 100, ZCDS=. 81433225. * OVERALL P RATIO STILL 8 
TFHPOS=50.00.CNHPDS=2.000,ETHPDS=.90tMODE=0. * ADDITIONAL INPUT WAS REQUIRED TO 
* RUN TWO SPOOL TURBOJETS, MODE =0 RESETS TO USE OF T4 RATHER THAN SPEED 


FAN DESIGN 

PRFCF = 

0. 25000000E+01 

ETAFCF= 

0. 94204 545E+00 

WAFCF= 

0.10550000E+01 

T2DS = 

0. 51 866820E+03 

COMPRESSOR DESIGN 

P RCCF = 

0.42 857 14 3E +00 

ETACCF* 

0. 9883720 9E+ 00 

WACCF* 

0. 35584073 E + 01 

T2 1 DS= 

0. 65 5 t2 2 C0E + 03 

COMBUSTER DESIGN 

WA3C0S - 

0. 15548823E+03 

ETA8CF* 

0. 98500000E+00 

0TC0CF= 

0. lOOOOOOOE+Ol 



H.P. TURBINE DESIoN 

CNHPCF = 

0.114192826+01 

TFHPCF= 

0. 1637569 IE +00 

ETHPCFs 

0. 10000000 E+01 

DHHPCF* 

0.489 E906 7E + OC 

L.P. TURBINE DESIGN 

CNL PCF - 

0. 125078446+01 

TFLPCF= 

0.27070545E+00 

ETL PCF = 

0.10235344E+01 

0HLPCF= 

0.68989U26E + 0C 

TURBINE AREA DESIGN 

A55 = 

0.21C23949F+02 

AM53 = 

0. 2382 373 7E +00 





afterburner design 

WG6CDS = 

0. 90353905E+04 







NOZZLE DESIGN 

A8 = 

0.86244577E+01 

AM8= 

0. lOOOOOOOE+Ol 

A9 = 

0. 862445 77 E+01 

A M9* 

0. IOC C0C0CE + 0 1 
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OUTPUT 


AM = 0. 

A L T P = 

0. T4= 

3260.00 


E TAR = l.< 

PCNF 

CNF 

ZF 

PRF 

HAFC 

MAF 

0. 1OGO0CE+O3 

0* 1000006+01 

0.8J3333E+00 

0. 200000E+01 

0. 633000E+0 3 

0.6330006+03 

PCNC 

CNC 

ZC 

PRC 

WACC 

MAC 

o.iocoooe+o3 

0. 100000E+01 

0.8143326+00 

0. 400000E+01 

0.3 558416 + 03 

0*6330006+ C3 

T 2 

P2 

T21 

P21 

T3 

P3 

0.51 8666E+03 

0. 100000E+01 

0.655622E+03 

0.200000E+01 

0.102280E+04 

0. 8OCO0C 6+ 0 1 

PCHLF 

BLF 

PC3LC 

BLC 

PCBLOB 

BLOB 

0. 

0. 

0. 970000E-01 

0.614010E+02 

0. 

0. 

PCBIHP 

8LHP 

PCBLLP 

BLL° 

T4 

P4 

0. 

0. 

0.1 OOOOOE+Ol 

0.614010E+02 

0.326000E+04 

0.75520CE+C1 

W A3 

WFB 

WC4 

FA«4 

ETAB 

DPCOM 

0.5715996+03 

0.219038E+02 

0. 5935Q3E +03 

0.3832036-01 

0.985000E+00 

0.56000CE-01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0*30533 IE +03 

0. 175142E+01 

0.600000E-01 

0.957639E+02 

0 .2957396+04 

0.457332E+01 

TFFLP 

CNLP 

OHTCLP 

DHTF 

T55 

P55 

0.48022 7E +03 

0. 183885E+01 

0. 1 71 750E-01 

0.350417E+02 

0.269456E+04 

0.376248E+01 

PCGLOU 

BLLU 

T24 

P24 

T25 

P25 

0. 

0. 

0. 

0. 

0.655622E+03 

0. 20000CE+0 1 

MAD 

WFD 

MG24 

FAT24 

etao 

DPDUC 

0. 

0. 

0.6330006+03 

0. 

0. 

0. 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM25 

0.829000E+00 

0. 850000E+00 

0. 900000E+00 

0.9030006+00 

0.238237E+00 

0. 

T 6 

P6 

PS6 

AMS 

V6 

WG6 

0.269456E+04 

0.376248E+01 

0.362824F +01 

0, 238237E + 00 

0.5791676+03 

0. 654904 E+03 

T7 

WFA 

WG7 

FAR7 

ETA A 

DP AFT 

0.2 6945 t>E + 04 

0. 

0 .6549046+03 

0.34S032E-01 

0. 

Q.48000CE-01 

PS8 

AM 8 

V8 

PS9 

AM9 

V9 

0.19718 jE +01 

0.100000E+01 

0.228725E+04 

C.197183E+01 

0.1O0O00E+01 

0.2287256+04 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0. 

0. 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

mft 

wGT 

VA 

FRO 

0. 

0. 

0.219038E+02 

0.654904E+03 

0. 

0. 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.96785 C£ +00 

0.221372E+04 

0. 

0. 

0.450603E+05 

0. 1773716+0 5 


MAIN SCN1C CONVERGENT NOZZLE FG= 62797. 45 FN- 62797.45 SFC* 1.25568 

DUCT SHOCK OUTSIDE C-0 NOZZLE 

CONVERGED AFTER 1 LOOPS 


COMMDN 0. 833333E+Q0 

0.1C0OQOE+03 0.L00GG0E+03 

0.8333 33E *-00 O.IOOOOOE+03 

0.8143325+00 0.100000E + 03 

0. 3260006 *04 0. 

0. 5C0000E +02 0. 20000QE+0i 

0. 1 30000E *03 0.230000E+01 

0 . 0 . 

0. 356000E *04 0. 

0.210289E+02 0. 

0.362824E+01 O.238237E+0O 

0. 518670E+O3 0. 100O00E+01 

0.6556’ 23+03 0.200000E + 01 

0.3260006+04 O.755200E+0I 

0. 269456E + 04 0.3 76248E *01 

0. lCOOCOE+Ol 0.200000E+01 

C. 1C00(/0 S +01 0.4000006+01 

0. 2COOOOE +01 O.'JOOOOOE+OO 

0.2 30060E + 01 0.903000E+00 

C. 0. 

0. 5C00POE +C2 0.130000E+03 

O.ICOOCOF+Ol 0.633000E+03 

0.655622E +03 0.20000QE + OL 

0 . 0 . 

0 . 0 . 

0 . 0 . 

0 . 0 . 

0.269*568+04 0.376248E+01 

0.2190386+02 0.654904E+03 

0. 2694 56f +04 0.376248E+01 

0.269*565+04 0.358188E+01 

0, 6549046 +03 0. 

0.362824E+01 0.579I67E+03 

0.2352 /ZE+04 0.197183E+01 

0 . 0 . 

0. 4506O3E +05 0. 1773716+05 


0.100000E+03 -O.OOOOOOE-19 

0.326000E+04 0.100000E+03 

0.200000E+01 0. 8290006+00 

0.400000E+01 0.850000E+00 

0.223720E+04 0.9850006+00 

0. 900000E +00 0.163757E+00 

0.903000E+00 0.270705E+00 

0 . 0 . 

0. 0. 900000E+00 

0.210289E+02 0.210289E+02 

0. 0.967850E+00 

0.123918E+03 0. 1591036+01 

0.156774E+03 0.159970E+01 

0.916050E+03 0.196075E+01 

0.7 34740E +03 0. 19465 LE+01 

0.829000E+00 0.633000E+03 

0.8500006+00 0.3558416+03 

0.293754E-01 0.957639E+02 

0.1 18488E-01 0.350417E+02 

0.100000E+01 0.833333E+00 

0. 0. 970000E-01 

0.6330006+03 0. 

0.1567746+03 O.159970E+O1 

0 . 0 . 

0 . 0 . 

0.633000E+03 0. 

0 . 0 . 

0.734740E+03 0.I94651E+01 

0.3460326-01 0. 

0. 734740E +03 0.194651E+01 

0.7 3473 7E+03 0.194989E+01 

0.654904E+03 0.346032E-01 

0.238237E+00 0.267059E+04 

0.228725E+04 0.100000E+01 

0 . 0 . 

0.219038E + 02 0* 654904E+03 


-O.OOOOOOE-19 0.8143326+01 

0. 0. 100000E+01 

0.6330006+03 0.250000E+01 

0.633000E+03 0.428571E+00 

0.1554886+03 0.560000E-01 

0.1141936+01 0. 100000E+01 

0.1250786+01 0.102353E+01 

O. 0. 

0.9035396+04 0.4800006-01 

0.8624466+01 0.862446E+01 

0. 0. 

0.5186686+03 0.100000E+01 

0, 102280E+04 0.800000E+01 

0.295 7396+ 04 0.45 73326+01 

0. 0.614010E+02 

0.633000E+03 0.571599E+03 

0.6330006+03 0.985000E+00 

0. 0. 593503E+03 

0.614010E+02 0.654904E+03 

0. 1000006+03 0.814332E+00 

0 . 0 . 

0. 0.2465626+03 

0 . 0 . 

0.6556226+03 0.200000E+01 

0 . 0 . 

0 . 0 . 

0 . 0 . 

0.6556Z2E+03 0.200000E+01 

0. 633000E+03 0. 

0. 269456E+04 0. 3581886+01 

0.269456E+04 0.3581886+01 

0. 0.4800006-01 

Q.344111E+01 0.6101946+03 

0.2352726+04 0.1971836+01 

0.221372E+04 0.4506036+05 

0.346032E-01 0.6279746+05 


0.100000E+03 0.326000E+04 0 

0.100000E+01 0. 100000E+01 

0.942045E+00 0.105500E+01 

0. 98837 2E+00 0 .35 5 8 41E+01 

0. lOCOOOE+Oi 0.985CCOE+00 

0.489591E+00 0.5186686+03 

0.6898906+00 0.655622E+03 

0. C. 

0 . 0 . 

0 . 0 . 

0 . 0 . 

0.123918E+03 0.159103E+01 

0.246562E+03 0.161325E+01 

0 .82 0286E + 03 0.196436E+01 

0 . 0 . 

0.5935036+03 C.3832a3£-Ol 

0 • 560000E- 01 0. 

0.383203E-01 0.111699E+04 

0 .3460326-01 C. 

0.100000E+03 C. 2190386+02 

o. c.ioaccoe+oi 


0 . 0 . 

0 . 0 . 

0.1 567746+03 C. 1599706 + 01 

0 . 0 . 

0. C. 

0 . 0 . 

0.156774E + 03 0. 159970E+01 

0.10C0Q0E+01 C. 

0. 73473 7E+ 03 0. 194989E+0L 

0.734737E + 03 0 .1949896 + 01 

0.5791676+03 C. 

0 .25 1101E+00 C. 

0.228725E+04 C. 10O0COE+O1 

0. 0 .1773716 + 05 

0. 62797 4E+05 0.1255686+01 


Off- design . - The following cases are off- design cases for the two- spool turbojet. 

Case 1: The engine is operating at a reduced turbine inlet temperature at sea- level- 
static condition. The input change of T4 was required. The compressor shaft speed of 
both compressors is reduced as are the pressure ratios, airflows, etc. , all of which are 
representative of part-power operation. 
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*D1 1 > t T 4=2660 » *1 

PART POWER ENGINE OPERATION 





* RESULTS N 

ORMAL OFF 

-DESIGN 

OUTPUT 




OUTPUT 

AM= 0. 

AL TP = 

0. T4 = 

2660.00 


ET AR= l.COOO 


PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 


0.83624 IE + 02 

0.836241E+00 

0.8497285*00 

0.175 763E+01 

0.503 176E+03 

0.5031 765 + C 3 


PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 


0. 90409 7E+02 

0. 9256096+00 

0.7091735+00 

0. 324591E+01 

0.314397E+03 

0.503194E+C3 


T 2 

P2 

T21 

P21 

T3 

P3 


0.51 866RE+03 

0. lOOOOOE+Ol 

0.6255005+03 

0.1757635+01 

0. 930 191E+0 3 

0.57051 1 E+0 1 


PCBLF 

BLF 

PCBLC 

8LC 

PCBLOB 

BLOB 


0 . 

0 . 

0. 970000E-01 

0. 438098E+02 

0 . 

0 . 


PCPLHP 

BLHP 

PCBLLP 

BLLP 

T 4 

P4 


0 . 

0 . 

0.1000005+01 

0.4880985+02 

0.266000E+04 

0.5365485+01 


W A 3 

WFB 

WG4 

FAR4 

ETA8 

DPCOM 


0.454384E +03 

0.127365F+02 

0.467120E +03 

0.2003025-01 

0.985000E+0C 

0. 5953015-01 


TFFHP 

CNHP 

DHTCHP 

OHTC 

T5 

P5 


0.30553oE+03 

0.I75297E+01 

0.6134485-01 

0. 7979265+02 

0. 239574E + 04 

0.320282E+ •! 


TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 


0.48575 5E+0 3 

0.170349E+01 

0. 1 66673E-01 

0.2758835+02 

0.218600E+04 

0. 26509CE+ C 1 


PCBLDU 

BLDU 

T 24 

P24 

T25 

P25 


0 . 

0 . 

0 . 

0 . 

0. 625500E+0 3 

0.175763E+01 


WAD 

WFD 

WG24 

FAR24 

ETAO 

DPDUC 


0 . 

0 . 

0. 5031 76E+03 

0 . 

0 . 

0 . 


ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM25 


0.848567E+00 

0. 8097565+00 

0. 8973955+00 

0.9063325+00 

0.238214E+00 

0 . 


T 6 

P6 

PS6 

AM6 

V6 

WG6 


0.218600E+04 

0.265090E+01 

0. 255886E+01 

0.2382145+00 

0. 525 1 89E + 0 3 

0. 51593CE+C3 


T 7 

wfa 

WG7 

FAR 7 

ETAA 

DPAFT 


0.2 1 8600E+04 

0 . 

0.515930E+03 

0.253U3E-01 

0 . 

0.48341 2 E-01 


PS8 

AMS 

V8 

PS9 

AM9 

V9 


0. 1 3819 7E + 0 1 

0. 100000E+01 

0. 206732E+04 

0. 138 197E + 01 

0. 100000E+0 1 

0. 2067325+04 


PS28 

AM 2 8 

V28 

PS29 

AM29 

V29 


0 . 

0 . 

0 . 

0 . 

0 . 

0 . 


BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 


0 . 

0 . 

0* 12 7365E + 02 

0. 515913E+03 

0 . 

0 . 


CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 


0.978239E+00 

0. 202233E+04 

0 . 

0 . 

0.324293E+05 

0.697137E+O4 

MAIN SCNIC CONVERGENT 

NOZZLE 

FG= 39400.71 


FN* 39400.71 


SFC= 1.16372 


OUCT SHOCK. OUTSIDE C-D NOZZLE 
CONVERGED AFTER 13 LOOPS 


Case 2: The engine is now operating at a supersonic flight Mach number (2. 5) at an 
altitude of 50 000 feet. The engine components are matched with an engine nozzle throat 
area A8 equal to the sea- level-static design value. This case is a setup case for match- 
ing components only. 


$D ( 1 ) « T 4=3260 »AM = 2 • 5* A L TP =5 0000 » * SET UP FOR COMPONENT MATCHING ONLY 
♦ RESULTS NORMAL OFF-DESIGN OUTPUT 


OUTPUT 


AM= 2.500 
PCNF 

ALTP= 50000. T4= 

CNF ZF 

3260.00 

PRF 

WAFC 

£ T AR = C . 8703 
WAF 

0.851964E+02 

0. 655689E+00 

0.82307 1E+00 

0.148416E+01 

0. 3 73082E+0 3 

0.488914 E+0 2 

PCNC 

CNC 

ZC 

PRC 

WACC 

WAC 

0. 10260 5E+03 

0.832254E+00 

0.556194E+00 

0.245472E+01 

0.268143E+03 

0.4886815+03 

T 2 

P2 

T2 1 

P21 

T3 

P3 

0.8756615+03 

0. 170275E+01 

0.996510E+03 

0.252716E+01 

0. 135 728E+04 

0. 6203475+0 *. 

PCBLF 

BLF 

PCBLC 

8LC 

PCBLOB 

BLOB 

0. 

0. 

0. 970000E-01 

0.474215E+Q2 

0. 

0. . 

PC BLHP 

BLHP 

PCBLLP 

BLLP 

T4 

P4 

0. 

0. 

0. lOOOOOt+Ol 

0.474215E+02 

0. 326000E+04 

0.5804395+01 

W A3 

WFB 

WG4 

FAR4 

6TAB 

DPCOM 

0.44 1460E+03 

0. 145963E+0? 

0, 456056F +03 

0.330637E-01 

0.985000E+0C 

0. 6425145-C1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0.305235E+03 

0. 1 79705E+01 

0.61S535E-01 

0. 982400E+02 

0.294654E+04 

0.3462875+01 

TFFLP 

CNLP 

DHTCLP 

OHf f 

T55 

P55 

0.4864515+03 

0. 1 56951E+0 I 

0. 157361E-01 

0.319779E+02 

0.2716866+04 

0. 2898626+01 

PCBLDU 

BLDU 

T24 

P24 

T25 

P25 

0. 

0 . 

0. 

0. 

0. 9965 10E+0 3 

0.2527165+01 

WAD 

WFD 

WG24 

FAR24 

etad 

DPDUC 

0. 

0. 

0.488914E+03 

0. 

0 . 

0. 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM25 

0.84047oE+00 

0. 75893 1E+00 

O.890441E+OO 

0. 905 158E+00 

0, 238434E+00 

0 . 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0. 27168 6E+04 

0.289862E+01 

0. 2 79887E +01 

0. 238434E+00 

0.582650E+03 

0.5034785+03 

T 7 

WFA 

WGT 

FAR7 

ETAA 

DPAFT 

0.2716B6E+04 

0 . 

0. 503478E +03 

0.2935656-01 

0 . 

0.4809685-01 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0.151968E+01 

0. lOOOOOE+Oi 

0. 229751E+04 

0.1519606+01 

0.100000E+01 

0.2297515+C4 

PS28 

AM28 

V28 

PS29 

AM29 

V29 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRD 

0. 

0 . 

0. 145963E+02 

0. 503 510E+03 

0.242 123E+04 

0.36T928E+05 

CVMNOZ 

VJM 

CVDNOZ 

VJO 

FGM 

FGP 

0.8 39848E+00 

0.192956E+04 

0 . 

0. 

0. 301 948E+0 5 

0. 25647 1 E + C5 


MAIN SCNIC CONVERGENT NOZZLE FG= 55841.86 FN- 19049.05 

DUCT SHOCK OUTSIDE C-D NOZZLE 


SFC= 2.75849 


CONVERGED AFTER 20 LOOPS 
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Case 3: The performance data for this case reflect an expansion to the maximum at- 
tainable area ratio for A9/A8, thus simulating a convergent- divergent nozzle. Perform- 
ance is calculated such that the nozzle static pressure PS9 is equal to the free-stream 
static pressure PSO. This is accomplished by setting NOZFLT = 1. 


soil) »NOZFir=l, * PERFORMANCE WITH MAX ATTAINABLE 
* RESULTS NORMAL OFF-DESIGN 0 


AREA RATIO 
U T P U T 


NOZZLE DESIGN 
ARAT I 0- 3.356 

OUTPUT 


A8= 0. 863676386+01 AM8= 0. lOOOOOOOE+Ol 
OUT OF RANGEfUSF DATA FOR 2.150 


A9 = 0.28983159E+02 


AM9= 0* 26 768298E+01 


AM* 2.500 
PCNF 

0*8 5 1964E+02 
PCNC 

0. 10260 5E+03 
TZ 

0.87566 1E+03 
pcblf 

0. 

PC8LHP 

0. 

W A3 

0.44 146 CE + 03 
TFFHP 

0.30523 5E +03 
TFFLP 

0.48645 IE+03 
PCtlLDU 

0. 

WAD 

0. 

ETAF 

0.840476E+00 
T 6 

0.27 1666E+04 
T 7 

0.2716866+04 
P S 8 

0.1517526+01 

PS28 

0. 

BYPASS 

0. 

C V M NOZ 

0.96C27 1E+0C 


V AI N SHOCK OUTSIDE C-D NOZZLE 
DUCT SHOCK OUTS I Dc C-0 NOZZLE 


ALTP = 50000 
CN-F 

0.6556896+00 

CNC 

0. 8322546+00 
P2 

0. 170275F+01 
BLF 

0. 

BLHP 

0. 

WFB 

0.145963E+02 

CNHP 

0. 179705E+01 
CNLP 

0. 15695 LE + 01 
BLDU 

0. 

WFD 

0. 

ETAC 

0. 75893 IF+OO 
P6 

0. 289862E+01 
WFA 

0. 

AM8 

0. 100000E+01 
AM28 

0. 

HPEXT 

0. 

VJM 

0.4401476+04 
FG= 68876. 71 


T 4* 
IF 

►B23071E+00 

ZC 

►556194E+00 

T21 

» 996510E +03 
PC81C 

,970000E-01 
PCBLLP 
. 100000E + 01 
WG* 

.456U56E+03 

DHTCHP 

>6185356-01 

DHTCLP 

> 157361E-01 
T24 

WG24 

■488914E+03 
ETATHP 
, 898441 E + 00 
PS6 

,2798876+01 

WG7 

> 503478E + 03 
V6 

.229761E+04 

V28 

WFT 

> 145963E+02 
CVDNOZ 


3260.00 

PRF 

0. 148416E+01 
PRC 

0.245472E+01 

P21 

0. 252 716E + 01 
8LC 

0.474215E+02 

BLLP 

0. 47421 5E+02 
FAR4 

0. 330637E-0L 
DHTC 

0* 982400E+02 
OHTF 

0. 319779E+02 
P24 

0. 

FAR 24 

0. 

etatlp 

0. 906 158E+00 
AM6 

0.233434E+00 
FAR 7 

0. 298 565E-01 
PS9 

0. 1 14456E+00 
PS29 

0. 

WGT 

0.5035106+03 
V JO 

0. 

FN= 32083.89 


WAFC 

0. 373082E+03 
WACC 

0.268143E+03 
T 3 

0.135728E+04 

PCBLOB 

0. 

T4 

0.326000E+04 

ETAB 

0.985000E+00 

T5 

0. 294654E + 04 
T55 

0. 271686E+04 
T25 

0.996510E+0 3 
ETAO 

0. 

AM5 5 

0.2 38434E + 0 C 
V6 

0. 582650E+0 3 
ETAA 

0. 

AM9 

0.267683E+0 1 
AM29 

0. 

VA 

0.2421236+04 

FGM 

0.6887676+05 


ETAR = 0.e703 
WAF 

0.488914E+0? 

WAC 

0.4888816+03 

P3 

0.620347E+01 

BLOB 

0. 

P4 

0. 580489 6+ C 1 
DPCOM 

0. 6425146-01 
P5 

0.346287E+01 

P55 

0.289862E+': 1 
P25 

0.25271 6E+ 01 
DPOUC 

0. 

AM25 

0. 

WG6 

0. 50347 8E+03 
OPAFT 

0. 48096 fi E“C 1 
V9 

0. 45835 7E+04 
V29 

0. 

FRO 

0. 36792 8E+05 
FGP 

0. 

SFC* 1.62779 


CONVPRGFU AFTER 1 LOUPS 


Case 4: The engine is operating in the supersonic flight condition with partial after- 
burning. No new setup case was required because the components are still matched 
from the previous two cases (2 and 3). IAFTBN = 1 automatically expands the nozzle so 
PS9 = PSO. It also adjusts A8 for the new temperature and pressure condition such that 
the nozzle throat is sonic. Both A8 and A9 are printed out at the top of the listing. 


SOI 1 ) fT7=290O» I AFTBN= 1 • * PARTIAL AFTERBURNING AT SUPERSONIC OPERATION 
* RESULTS NORMAL OFF-DESIGN OUTPUT 


NOZZLE DESIGN 


A8= 0. 89961 808E+01 AM8= 0. 10000000E+01 A9= 0. 303897386+02 AM9= 0.267122096+01 


ARAT 1 0= 3.378 OUT OF RANGE,USE DATA FOR 2.150 


OUTPUT 


AM= 2.500 
PCNF 

0.B5 196^6+02 
PCNC 

0. 10260 5E +03 
T 2 

0.87566 1E+03 
PCBLF 

0. 

PCBLHP 

0. 


ALTP = 50< 
CNF 

0.655689E+00 

CNC 

0. 8322546+00 
P2 

0.170275E+01 

BLF 

0. 

BLHP 

0. 


I. T4= 

IF 

0.823071E+00 

ZC 

0. 566194E+00 

m 

0. 9965 10E+03 
PCBLC 

0.970000E-01 

PCBLLP 

0.10000CE+01 


3260.00 

PRF 

0. 1484166+01 
PRC 

0.2454726+01 

P21 

0.2527166+01 

BLC 

0.4742156+02 

BLLP 

0. 474215E+02 


T7= 2900. OC 
WAFC 

0. 373082E + 0 3 
WACC 

0.268 143E+03 
T3 

0. 135 728E+04 
PCBLOB 


E TAR = C .8703 
WAF 

0. 4889146+03 
WAC 

0. 488881E+C3 
P3 

0. 620347 E+ 01 
BLOB 

0. 


T 4 

0. 326000E+04 


P4 

0. 5804896+01 
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HA 3 

WF8 

WG4 

0.4414606+03 

0.145963E+02 

0.456056E+03 

TFFHP 

CNHP 

OHTCHP 

0. 30523 5E + 03 

0# 1 79705E+01 

0. 6185356-01 

TFFLP 

CNLP 

DHTCLP 

0.48645 1E+03 

0, 1 56951F+01 

0* 1 57361E-01 

PCBLDU 

BLDU 

T 24 

0. 

0. 

0. 

HAD 

WFO 

HG24 

0. 

0. 

0.488914E +03 

ETAF 

ETAC 

ETATHP 

0.340476E+00 

0. 758931 E+00 

0.898441E+00 

T 6 

P6 

PS6 

0.2716866+04 

0. 269862E+01 

0.2 7988 7E + 01 

T 7 

WFA 

WG7 

0.2 90000E+04 

0 • 1 71925F+01 

0. 505197E+03 

psa 

AMS 

V8 

0. 1 5 1 599E+0 1 

0. lOOOOOF+Ol 

0.237123E+04 

PS28 

AM28 

V28 

0. 

0. 

0. 

BYPASS 

HPEXT 

HFT 

0. 

0. 

0.1 63155E+02 

CVMNOZ 

VJM 

CVDNOZ 

0.96035 OE +00 

0. 455780E+04 

0. 


FAR4 

ETAB 

DPCOM 

0.330637E-01 

0.985000E + 0 C 

0.6425146-01 

DHTC 

T5 

P5 

0.9824006+02 

0. 294654E+04 

0. 34628 7E+0 1 

OHTF 

T55 

P55 

0.3197796+02 

0.271686E+04 

0. 289862 E+ 0 1 

P24 

T25 

P25 

0. 

0.996510E+03 

0.25271 6 E+0 . 

FAR 2 4 

ETAO 

DPDUC 

0. 

0. 

0. 

ETATLP 

AM5 5 

AM25 

G.905158E+00 

0. 2384356+00 

0. 

AMO 

V 6 

WG6 

0.238435F+00 

0.582650E+03 

0. 503477E+03 

FAR 7 

ETAA 

DPAFT 

0. 333732E-0 1 

O.B93552E+OC 

0.4809686-01 

PS9 

AM9 

V9 

0.1144566+00 

0.267 122E+0 1 

0.474598 E+04 

PS29 

AM29 

V29 

0. 

0. 

0. 

HGT 

VA 

FRO 

0.505229E+03 

0.242 123E+0 4 

0.367928E+05 

VJD 

FGM 

FGP 

0. 

0. 715666E + 0 5 

0. 


*AIN SHOCK JUTS lOr C-0 NOZZLE FG= 71,566.56 

CUCT SHOCK 3UTSI0E C-D NOZZLE 


FN = 34773.74 


sfc= l.tescs 


CONVERGED AFTER 1 LOOPS 


Case 5: The engine is operating in the supersonic flight condition at design after- 
burner temperature. 


SD(l) ,T7=350Q, IAFTBN=l,t MAX AFTERBURNING AT SUPERSONIC OPERATION 
* RESULTS NORMAL OFF-DESIGN OUTPUT 


NOZZLE DESIGN 
AR AT I 0= 3.470 

OUTPUT 


A8= 0. 10154220E+02 AM8= 0. 10000000E + 0 1 
OUT OF RANGE, USE DATA FOR 2.150 


A9= 0. 352309 15E + 02 


AM9= 0. 266C76 366*01 


AM= 2.500 
PC NF 

0.8 5 1964E +0? 
PCNC 

0. 1026056+03 
T 2 

0.8 7566 IE +03 
PCBLF 

0. 

PCBLHP 

0. 

WA3 

0. 4414606+03 
TFFHO 

0.305235E+03 

TFFLP 

0.48645 1E+03 
PCBLDU 

0. 

MAO 

0. 

ETAF 

0, 84C476E+00 
T 6 

0.2 7 1686E+04 
T7 

0.35CC0CE+04 
P S 8 

0. 15072 8E +01 


ALTP= 50000 
CNF 

0.655689F+00 
CNC 

0.832254E+00 
P2 

0. 1702756 + 01 
BLF 

0. 

BLHP 

0. 

WFB 

0.1459636+02 
CNHP 

0.1797056+01 
CNLP 

0.1569516+01 
BLDU 

0. 

WFD 

0. 

ETAC 

0. 75893 1E + 00 
P6 

0. 289862E + 01 
WF A 

0.7240946+01 
AM8 

0. 100000F+01 


ZF 

0. 823071E +00 
ZC 

0. 556 1 94E+00 
T21 

0.996510E+03 

PCBLC 

0. 970000E-01 
PC8LLP 

0.1 OOOOOE+Ol 
WG4 

0.456056E+03 

OHTCHP 

0.61 8535E-01 
OHTCLP 

0.157361E-01 

T24 

0. 

WG24 

D. 4889146+03 
ETATHP 

0.8984416+00 

PS6 

0.2798876+01 

WG7 

0.5107186+03 

V8 

0.2597586+04 


T 4= 3260.00 
PRF 

0. 148416E+01 

0. 245472 E +01 
P21 

0.252716E + 01 
RLC 

0.474215E+02 
BLLP 

0.474215F+02 
FAR 4 

0.330637F-01 
DHTC 

0. 982400E+02 
DHTF 

0. 3197796+02 
P24 

0 . 

FAR24 

0. 

ETATLP 

0. 906 158E+00 
AMS 

0.238435E+00 
FAR 7 

0. 446677E-01 
PS9 

0. 114456E+00 


T7= 3500.00 
WAFC 

0.373082E+03 
W ACC 

0. 263 143E + 0 3 
T 3 

0 .1357286+04 
PCBLOR 

0. 

T 4 

0.3260006+04 

ETA8 

0.9850006+00 
T 5 

0.2946546+04 
T 55 

0.2716866+04 

T25 

0.9965106+03 

ETAO 

0 . 

AM55 

0. 23843 56 + OC 
V6 

0.582650E+03 

ETAA 

0.919029E+OC 

AM9 

0. 266076E+0 1 


ETAR = C . 8703 
WAF 

0. 488914E + 03 
WAC 

0.48888 1E+03 
P3 

0.620347C+C1 

BLOB 

0. 

P4 

0. 58048 5 E + 0 1 
DPCOM 

0. 642 51 4 E- 0 1 
P5 

0. 34628 7 E+ Cl 
P55 

0. 289862E + 0 1 
P25 

0. 252 71 6 E + 0 1 
DPDUC 

0 . 

AM2 5 

0. 

WG6 

0. 503477E+C3 
OPAFT 

0.48096 8 E-0 1 
V9 

0.524976E+CA 


PS28 

AH28 

V28 

PS2 9 

AM29 

V29 

0. 

0. 

0. 

0. 

0. 

0. 

BYPASS 

HPEXT 

HFT 

HGT 

VA 

FRO 

0. 

0. 

0.218372E+02 

0.5107516+03 

0.2421236+04 

0.367928E+C5 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.960653E+00 

0.504319E+04 

0. 

0. 

0.8005376+05 

0. 

NOZZLE 

FG= 80053.69 


FN= 43260.88 


SFC* 1.81721 


DUCT SHOCK OUTSIDE C-0 NOZZLE 
CONVERGED AFTER 1 LOOPS 


Separate-Flow Turbofan 


Design point . - This is the design case for the separate-flow 
sign point, the data tljgt were changed are shown on the top of the 


turbofan. For the de 
following example. 
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The control card FAN = . TRUE, designates that there is now a bypass ratio. Thus the 
front compressor (fan) flow does not equal the inner compressor flow. Consequently, a 
value for the inner compressor flow must be input. This value determines the engine 
bypass ratio. Also, a duct Mach number AM23 must be input. If the design is to be a 
duct-burning turbofan engine, AM23 should remain low (i. e. , similar to an afterburner 
inlet Mach number - between 0. 15 and 0. 25) to keep friction losses at a minimum in the 
burner. Also a computational problem could arise when the duct burner is operating if 
AM23 is too high. The large temperature increase due to fuel addition will cause choking 
at engine duct station 24, consequently a printout error would occur. 

The values of AM and ALTP are input to zero which are the conditions designated for 
the engine design point. A duct pressure loss DPDUDS is also input. 

In the output of the results, the duct parameters now have values associated with the 
engine design, which includes area (A28 and A29) and duct Mach numbers. 


$011 >,ID6S*1, 

$o(iuioes*i, 

PRF0S=2.5,PRCDS=10,WAFC0S*500,WACC0S-100 f ALTP*0,AM=0.IGASHX=0*AM23=. 15. 


FAN* . TRUE. * I SPOOL 
* SEPARATE FLOW 

=2, DPDUDS* 
TURBOFAN 

'.02, 

ENGINE-DESIGN 

CASE 






FAN DESIGN 

PRFCF* 

0. 37500000E+01 

ETAFCF* 

0.94204545E+00 

wafcf= 

0. 83333334E+00 

T20S* 

0.51866820E+03 

COMPRESSOR DESIGN 

PRCCF = 

0.12857143E+01 

ETACCF* 

0.988372096*00 

WACCF= 

0* 1 0000000 E + 01 

T2 IDS* 

0. 705 14 32 9E + 03 

COMBUSTER DESIGN 

WA3CDS* 

0. 19974841F+02 

ETABCF* 

0. 985000006+00 

dt; ocf= 

0. 100000006+01 



H.P. TURBINE DESIGN 

CNHPCF = 

0.11419282E+01 

TFHPCF* 

0.152104906+01 

ETHPCF* 

o.ioooooooe+oi 

OHHPCFs 

0. 10CE9C1 8E + 01 

L.P. TURBINE OESIGN 

CNLPCF = 

0. 11782237E+01 

TFLPCF* 

0.14620719E+01 

etlpcf* 

0. 10 235344 E+01 

OHLPCF* 

0. 24967 1 45E +01 

DUCT NOZZLE DESIGN 

A28 = 

0. 274 ?2 096E+01 

AM28- 

0.10000000E+01 

A29= 

0.2747 20 96 E+01 

AM 29» 

O.IOOCOOOCE+Ol 

TURBINE ARE4 OESIGN 

A55 = 

0.645462296+01 

AM55* 

0. 23825 740E+00 





AFTERBURNER DESIGN 

WG6CDS* 

0. 27906742 £+04 







NOZZLE OESISN 

A8 = 

0. 26471 373E+0 1 

AMo= 

0.10000000E+01 

A9 = 

0. 264713736+01 

Am9= 

0. 100C000UE +01 

OUTPUT 

AMs 0. 

ALTP' 

= 0. 

T4 = 3260.00 



ETARs l.COOC 


PCNF 

0.10C00CE+03 

PCNC 

O.lOOOOOE+03 
T 2 

0*51 866HE+03 
PCBLF 

0. 

PCBLHP 

0. 

W A 3 

0.1935306+03 

TFFHP 

0.32872 iE + 02 
TFFLP 

o.889i4iE+o2 

PC6LDU 

0. 

WAD 

0. 28568 16+03 
EIAF 

0.829C0QE+00 
T 6 

o.2mo->6+04 

77 

0.218109E+04 

PS8 

0* 192429E *0 1 
PS28 

0* 1 2 9756E + 0 1 
BYPAS > 

0.13329 7E+01 
CV V NU Z 
O.96365CE+00 


MAIN SCNIC CONVERGENT NUZZLE 
DUCT SCNIC CONVERGENT NOZZLE 


CNF 

0.100000E+01 

CNC 

O.IOOOOOE+Oi 

P2 

0.100000E+01 

BLF 

0. 

BLHP 

0. 

WFB 

0.614714E+01 

CNHP 

0. I 75142E+01 
CNLP 

D.195209E+01 

BL0U 

0. 

WF0 

0. 

ETAC 

0* 8500G0E+00 
P6 

0.368952E+01 
WF A 

0. 

AMS 

0. 1000006+01 
AM28 

0.1000005+01 

hpext 

o. 

VJM 

0. 199971 1* 04 
FG= 30943.33 


l F 

0. 833333E+00 
ZC 

0 . 814332E+00 
T2L 

0. 705 743E + 03 
PCBLC 

0.970000E-01 

PCBLLP 

0.1000006+01 
WG A 

0. 1996786+03 
OHTCHP 

0.6000006-0 L 
OHTCLP 

0. 1 71 750E-01 
T24 

0.705 7436 + 03 
WG24 

0.2856816+03 

ETATHP 

0. 900000E+00 
PS6 

0.355616E+01 

WG7 

Q.22G466E+03 
V 8 

0. 20644 IE +04 
V28 

0.118926E+04 
WF T 

0.614714F+01 

CVDNUZ 

0. 978768E +00 


PRF 

0. 250000E+01 
PRC 

0. 100000E+02 
P21 

0.250000E+01 

etc 

0. 207 890E+02 
BLLP 

0. 207 990E+02 
FAR4 

0.317632E-01 

DHTC 

0.1973416+03 

DHTF 

0.1125296+03 

P24 

0.245000E+01 

FAR24 

0. 

ETATLP 

0.903000E+00 

AM6 

0.238257E+00 
FAR 7 

0.285822E-01 

PS9 

0.192429E+01 

PS29 

0.129756E+01 

WGT 

0. 506147E+03 
VJO 

0, 1 16401 E+04 
FN= 30945.83 


W AFC 

0.5000006+03 

WACC 

0. 1 OOOOOE+O 3 
T3 

0.1437966+04 

PC8L0B 

0. 

T 4 

0.326000E+04 

ETAB 

0.985000E+0C 

T5 

0.262422E+04 
T 55 

0.218109E+04 
T 25 

0. 705 743E + 03 
ETAO 

0. 

AM55 

0.238257E+00 

V6 

0.524239E+03 

ETAA 

0. 

AM9 

O.IOOOOOE+OI 

AM29 

0.1000006+01 

VA 

0. 

F CM 

0.24038 1E+05 


WAF 

0.50000CE+02 

WAC 

0.214319E+C3 

P3 

0. 25000CE + 02 
BLOB 

0. 

P4 

0.23600CE+02 

DPCOM 

0.56000CE-C1 

P5 

0. 782808 E+ 0 1 
P55 

0. 3669526+01 
P25 

0. 245000E+0I 
DPDUC 

0.20000CE-L1 

AM25 

0* 157446 6+ CO 
WG6 

0. 220466 E+ C3 
DPAF T 

0.480000E-C1 

V9 

0. 206441 E+04 
V29 

0.1189266+04 

FRD 

0, 

FGP 

0.69077 1 E+04 
SFC= 0.71511 


CONVERGED AFTER 1 LOOPS 
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COMMON 


0 . 833333 E +00 


0 • 100000E+03 -0.000000E-19 -O.OOOOOOE-19 0.814332E+00 


0 .1 Q0000E+03 


0.326000E+04 0 


0. ICOOl'OE *03 
0.8333 33E+00 
0.814332E+00 
C.326000E+04 
O.5CQ0C0E+O2 
0.1 30000E +03 
0. 

0. 35600QE +04 
0.6*54e2E+01 
0.355615E+01 


0. 1 OOOOOE +03 
0. 100000E +03 
o.ioooooe+03 
0. 

0. 200000E +01 
C .2 30000E+01 

0. 

0. 

0. 

0.238257E+00 


0.326000E+04 
0.250000E+01 
0 . 100000E + 02 
0.182204E+04 
0. 900000E+00 
0.903000E+00 
0. 

0. 

0. 6454626+01 
0.978768E+00 


0.100000E+03 
0. 829000E+00 
0.850000E+00 
0.985000E+00 
0. 152105E + 01 
0.146207E+01 
0. 

0* 900000E+00 
0.645462E+0I 
0.968658E+00 


0. 

0.5000006+03 
0.214319E+03 
0.199748E+02 
0. 114193E+01 
0.117822E+01 
0.303574E+04 
0. 2790676+04 
0.2647146+01 
0. 


0.100000E+01 
O.375OODE+0i 
0.128571E+01 
0. 560000E-01 
0.100000E+01 
0.102353E+01 
0.2000006-01 
0.480000E-01 
0.2647146+01 
0. 


0.100000E+01 
0.9420456+00 
0.988372E+00 
0.1000006+01 
0. 100890E + 01 
0 *2496716+01 
0. 

0. 

0.274721E+01 

0. 


O.IOOOCOE+Ol 
0.8333336+00 
0. lOOOCOE+Ol 
0.985C006+00 
0. 518668E+03 
C. 7057436+03 
C. 

0. 

0.2747216+01 

0. 


0.5 186 70E +03 
0.7057436+03 
0.326000E+C4 
0.2181C9E+04 
0. 1C0000E +01 
O.ICOOOOE+Ol 
0.2C00OUE+01 
0.2 300O0E +01 
0. 

0. SCOOcOE +02 


0. 1000006 +C1 
0. 250000E +01 
0.2360006+02 
0. 368952E+01 
0.250000E+01 
0. 1 00000 E +02 
0.9000006+00 
0. 903000E +00 
0. 

0. 130000E+03 


0. 123918E + 03 
0. 168857E + 03 
0 . 9079066+03 
0 . 5 74903E + 03 
0. 829000E +00 
0 . 850000E +00 
0.6053416-01 
0.42881OE-01 
0.1 OOOOOE + 01 
0. 


0.159103E+01 
0 . 1 60216E+0 1 
0.187798E+01 
0. 188086E +01 
0. 500000E+03 
0.1000006+03 
0.1973416+03 
0.1125296+03 
0.8333336+00 
0.9700006-01 


0.5186686*03 

0.143796E+04 

0.2624226+04 

0. 

0.5000006+03 

0.2143196+03 

0. 

0.2078906+02 

0.1000006+03 

0. 


0.100000E+01 
O. 2500006+02 
0 .7828086+01 
0.207890E+02 
0. 193530E+03 
0. 985000E+00 
0.1996786+03 
0.220466E+03 
0.8143326+00 
0. 


0. 1239186+03 
0.3527176+03 
0.710565E+03 
0. 

0.1996786+03 
0.560000E-01 
0.3176326-01 
0.2868226-01 
0 • 100000E +03 
0. 


0. 159103E+01 
0 . 1622 C9E+0 1 
0. 1886456+01 
0. 

C. 3176326-01 

0. 

C. 1116996+04 

0. 

0.6147146+01 

O.IOOCOOE+Ol 


C. ICOOf 0E+01 
0.7057 -3E +03 
0.7057 .3E+03 
0. 7057^3F +03 
0.2 856*! 1 E * 03 
C.5E84H8E +03 

0.2 18109c +04 
0. 6 147 1 4E +0 1 
0.218109E+C4 
0.2 18 109E +04 
0.220466E+03 
0.355616E+01 
0. 1 88980E +04 
0. 

0 . 24036 1 E +05 


0.50CO00E+03 
0.25OO00E+01 
0 . 245000 E ♦ 01 
0.2450006+01 

0. 

0. 1 29756E + 01 

0. 368952 E +01 
0 . 220466 E +03 
0 . 368952 E +01 
0.351 242 E + 01 

0. 

0 . 5 24239E +03 
0.192429E+01 

0. 

0 .690771 E +04 


0.214319E+03 
0 . 1 68857F +03 
0.168857E+03 
0.1 68857E+03 
0 • 26568 IE + 03 
0.118926E+04 

0 . 574903E+03 
0.286822E-01 
0 , 574903E +03 
0.5 74905E+03 
0.2 20466E+03 
0.238257E+00 
0. 206441E + 04 
0 . 1 1640 1E + Q4 
0.6 147 14E+01 


0. 

0. 1602 16E+01 
0.160355E+01 
0.16O355E+01 

0. 

0, 100000E +01 

0. 188086E+01 

0. 

0. 1 88086E+01 
0.188423E+01 
0. 286822E-01 
0. 216058E +04 
0. 1 00000E+01 
0. 103355E+05 
0.506147E+03 


0. 

0.7057436+03 

0.7057436+03 

0.705743E+03 

0. 

0.5884886+03 

0.705743E+03 

0.2856816+03 

0.2181096+04 

0.2181096+04 

0. 

0.337259E+01 

0.1889806+04 

0.1999716+04 

0.1229436-01 


0.352717E+03 
0.250000E+01 
0.2450006+01 
0. 245000 E+01 
0.200000E-01 
0.1297566+01 

0. 245000E+01 

0. 

0.3512426+01 
0.3512426+01 
0.4800006-01 
0.5523116+03 
0 • 192429E+01 
0.1 37026E+ 05 
0.309458E+05 


0. 

0.1688576+03 
0. 16885 7E+03 
0 • 168857E *03 
0.1332976+01 
0.U8926E + 04 

0 .1688576*03 
0 • 100000E + 01 
0 .5749056 + 03 
0.57 4905E+ 03 
0 .5 24239E+03 
0 .25 1 12 1E + 00 
0 .20644 1E + 04 
0 .1729926+04 
0 .3094586+05 


C. 

0.1602166+01 
0. 160 355 E + 0 1 
0.1603556+01 

0. 

C . lOOOCO E+01 

0.1603556+01 

a. 

0 • 188423E+01 
0.1884 23 E+01 

0. 

G. 1574466+00 
O.IOOCOOE+Ol 
0.5177796+04 
0. 7151 12E+00 


Off- design . - The following are the off-design cases for the separate-flow turbofan 
engine. 

Case 1: The engine is operating at Mach 2. 5 at an altitude of 50 000 feet. The en- 
gine components are matched, with the duct and primary nozzle throat areas (A28 and A8) 
equal to the sea- level- static design value. This is a setup case for matching components 
only. However, note the very low thrust of the turbofan engine at this flight condition be- 
cause the ram drag FRD is nearly equal to the gross thrust of the two streams FG. 


$0(1 ),AM=2.5,ALTP*50000, *1 

♦ OFF DESIGN OPERATION AT MAX T4 (SETUP CASE) 


OUTPUT 


AM* 2.500 
PCNF 

0.709714E+02 

PCNC 

0.792542E +02 
T 2 

0.87 566 1E+03 
PC8LF 

0. 

PC0LHP 

0. 

W A 3 

0.90682 3E+02 
TFFHP 

0. 3334336+02 
TFFLP 

0.97 5392E +02 
PCBLOU 

0. 

MAO 

0. 23264 5E + 03 
ETAF 

0.796334E+00 
T 6 

0.223271E+04 
T 7 

0.223271E+04 

PS8 


ALTP* 50< 
CNF 

0. 54621 1E+00 
CNC 

0* 670088E + 00 
P2 

0. 170275F+01 
6LF 

0. 

BLHP 

0. 

WF9 

0. 248834E+01 
CNHP 

0. 138808E+0X 
CNLP 

0.138856E+01 

8L0U 

0. 

WFD 

0. 

6TAC 

0. 715568E+00 
P6 

0. 17391 5E+01 
WF A 

0. 

AMS 


). T4 : 

ZF 

0.652696E+00 

ZC 

0.657516E+00 

T21 

0.987251E+03 

PCBLC 

0. 970000E-01 
PCBLLP 

0 . 1 OOOOOE+Ol 
WG4 

0.931707E+02 

DHTCHP 

0. 607172E-01 
OHTCLP 

0. 1 50943E-01 
T24 

0.967251E+03 

WG24 

0.232645E+03 

ETATHP 

0. 855728E+00 
PS6 

0. 167855E+01 
WG7 

0.102912E+03 

V8 


3260.00 

PRF 

0* 141 563E+01 
PRC 

0. 479978E+0I 
P21 

0. 241047E+01 
bl: 

0.9741076+01 

6LLP 

0. 974107E+01 
FAR4 

0. 274401E— 01 
DHTC 

0. 199384E+03 
DHTF 

0. 984124E+02 
P24 

0. 236231E+01 
FAR24 

0. 

ETATLP 

0.912016E+00 

AM6 

C.238583F+00 

FA37 

0.247785E-01 

PS9 


WAFC 

0.254159E+03 

HACC 

0. 574781E+02 
T 3 

0. 170093E+04 
PCBLO0 

0. 

T 4 

0.326000E+04 

ETAB 

0 • 905OOOE+OO 
T5 

0.2612406+04 

T55 

0. 22327 1E+04 
T 25 

0.987251E+03 

ETAO 

0. 

AM55 

0.2385836+00 

V6 

0.531 377E+0 3 
ET A A 

0. 

AM9 


6TAR= C.8703 
WAF 

0. 333068E+0 3 
MAC 

0. 100423 E+0 3 
P3 

0.115697E+02 

BLOB 

0. 

P4 

0.108562E+02 

OPCOM 

0*61666 5 E— 0 1 
P5 

0. 33221 6E+0 1 
P55 

0. 173915 E+C*l 
P25 

0. 23623 1 E+Cl 
OPDUC 

0. 1997896— Cl 
AM25 

0.15811 8E+C0 
WG6 

0. 102912 E+0 3 
DPAFT 

0.4809256-01 

V9 
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0.9083066+00 
P S 28 

0*12568 IE + 01 
BYPASS 
0.231664E+01 
CVMNOZ 

0.8783496+00 

PAIN SCNIC CONVERGENT NOZZLE 
DUCT SCNIC CONVERGENT NOZZLE 

CONVERGED AFTER 34 LOOPS 


Case 2: The same flight condition and engine operation is shown in this case as in 
case 1 because it is a continuation of the previous setup case. However, the engine is 
now duct burning. Therefore T24, IDBURN, and ETAD must be input. The duct burner 
does not have a performance map included in the subprogram as was the situation with 
the afterburner. Consequently, every duct-burning case requires the input of the burner 
efficiency (ETAD) and the control card (IDBURN = 1) in order to operate. 

A new throat area (A28) is calculated reflecting the change in temperature, pressure, 
and mass flow of the gas in order that the nozzle is sonic. The value of A8 remains at 
the design value unless it is altered with a separate input. A permanent change in A8 
would require a new setup case prior to running a duct-burning case. 


0* 1000006+01 
AM2S 

0.100000E+01 

HPEXT 

0* 

VJM 

0* 1834696*04 
FG= 25620.31 


0. 2088806+04 
V28 

0.140492E+04 

WFT 

0.248834E+01 

CVDNOZ 

0. 8528 156+00 


0,9083066+00 

PS29 

0, 1256816+01 
WGT 

0.3355576+03 

VJD 

0. 119813E+04 
FN= 555.53 


0 . 100000E+0 1 
AM29 

0* I OOOOOE+0 1 
VA 

0.242 123E+04 
FGM 

0. 1453196+05 


0. 70888 C 6 + 04 
V29 

0. 140492E+04 
FRO 

0.2506486+0 5 
FGP 

0. 110884E+C5 
SFC=16. 12516 


SD ( 1 1 » T 24=34t>0 f ET AD-. 90 » I DBURN= 1 * 

* OFF DESIGN OPERATION WITH DUCTBURNING 


DUCT NOZZLE DESIGN A28= 0 . 58485843E+0 1 AM28 = 0. 10000000E+01 A29= 0. 


ARATIO- 3.086 OUT OF RANGE .USE DATA FOR 2.150 


OUTPUT 


A«* 2.500 

PC’JF 

0. 7097146+02 
PCNC 

0.7925426+02 
T 2 

0.87566 IE +03 
PCOLF 

0. 

PCBLHP 

0. 

WAT 

0.90682 3E +02 
TFFHP 

0.333433E+02 

TFFLP 

0.9 75 392E + 02 
PCBLOU 

0. 

tf AO 

0.2326456+03 

ETAF 

0.796334E+00 
T 6 

0.223271E+04 
T 7 

0.223271E+04 
P S 8 

0.9083066+00 

PS28 

0.12417 OE + 01 
BYPASS 
0. 2316646+01 
CVMNOZ 

0.87834 96+00 


ALTP = 50( 
CNF 

0. 54621 16+00 
CNC 

0. 67008HF+00 
P2 

0.1702756+01 

RLF 

0. 

BL HP 

0. 

WFP 

0.2488346+01 

CNHP 

0. 138808E + 01 
CNLP 

0.1388566+01 

BLDU 

0. 

WED 

0.1094486+02 

6TAC 

0.71 5568E+00 
P6 

0.1739I5E+01 
WF A 

0. 

AM8 

0.1000006+01 

AM28 

0.1000006+01 

HPEXT 

0. 

VJM 

0. 183469E+04 


). TV 

ZF 

0.652696E+00 

ZC 

0.657516E+00 

T21 

0. 98725 1E+03 
PCBLC 

0.970000E-01 

PCBLLP 

0. 100000E+01 
WG4 

0.931707E+02 

DHTCHP 

0.607172E-01 

DHTCLP 

0. 150943E-01 
T24 

0.346000E+04 

WG24 

0.243590E+03 

ETATHP 

0.8557286+00 

PS6 

0.167855E+01 

WG7 

0. 1 02912E+03 
VB 

0.208880E+04 

V28 

0.2582426+04 

WFT 

0. 1343316+02 
CVDNOZ 

0. 965722E+00 


3260.00 

PRF 

0. 141 563 E+01 
PRC 

0.4799786+01 

P21 

0.2410476+01 

BLC 

C.974107E+01 

BLLP 

0.974107E+0L 

FAR4 

0. 27440 16-01 
DHTC 

0. 199 384E + 03 
DHTF 

0. 984 124E+02 
P24 

0.2242306+01 
FAT 24 

0. 470450E-0 1 
ETATLP 

0. 9 12016E+00 
AMS. 

0.238 583E+00 
FAR 7 

0.2477856-01 

PS9 

0.908306E+00 
PS2 9 

0.1144566+00 

WGT 

0, 346 501 E+03 
VJD 

0. 4933486+04 


M A I N SCNIC CONVERGENT NOZZLE FG= 47666.88 FN* 22602.09 

DUCT SHOCK OuTSIOfc C-D NOZZLE 


18051276E+02 AM29= 0.254 74 7 2CE+01 


T24= 3460.00 
W AFC 

0.2541596+03 
W AC C 

0.574 781E+02 
T3 

0*1 70093E+04 
PCBLOB 

0. 

T 4 

0.3260006+04 

ETAB 

0.9850006+00 

T5 

0. 2612406+04 
T55 

0.2232716+04 

T25 

0.3460006+04 

ETAD 

0. 9000006 + 0 C 
AM55 

0. 238583E + OC 
V6 

0.5313776+03 
6 TA A 

0. 

AM9 

0,1000006+01 
AM2 9 

0. 254747E+0 1 
VA 

0.2421236+04 

FGM 

0 .432 198 E+0 5 


E TA R= C. 8703 
WAF 

0.3330686+03 
k AC 

0.1004236+03 

P3 

0.115697E+C2 

BLOB 

0. 

P4 

0. 10856 2 £+ 0 ? 
OPCOM 

0.6166656-01 

P5 

0. 3322166 + 0 » 

P55 

0. 1739156+01 
P25 

0.22423CE+01 
DP DUC 

0. 1997896-01 
AM25 

0.2681456+07 

WG6 

0.1029126+03 

DPAFT 

0. 4809246-01 
V9 

o.2oeeeoE+C4 

V29 

0.5108596+04 

FRD 

0.2506486+05 

FGP 

0.4447086+04 


SEC* 2. 13959 


CONVERGED AFTER l LOOPS 
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Mixed -Flow Turbofan 


Design point , - A mixed-flow turbofan engine is designed by using the input 
IGASMX = 1 and resetting the AM and ALTP to the desired value (sea- level-static in the 
example). This output listing shows the rebalancing of the fan and inner compressor 
pressure ratio to a value such that the static pressures at stations 25 and 55 will match. 
The overall compressor pressure ratio remains fixed. The values of the combination 
are not necessarily the optimum values; but it does give an indication, for the selected 
design values, as to what combination can be considered. Once the static-pressure val- 
ues are satisfied, the program operates in a normal design mode. The other input cards 
are those required for the afterburner design. These values of design efficiency and 
temperature must be input for the design case in order to scale the generalized after- 
burner map to the proper design conditions. The afterburning takes place in the com- 
pletely mixed streams - similar to an afterburning turbojet. The mixed-flow turbofan 
engine uses a single exhaust nozzle. The design areas are then printed out for this type 
of operation. 


S0(1 > • I 0ES=1 , *1 
$D< 1 ),IDE$ = 1, 

AM=0,ALTP=0,IGASMX*1, * MIXEO FLOW TURBOFAN - DESIGN CASE 
T7DS=3460, ETAA0S=.89 f AM6=.l5,DPAFDS=.05t t AFTERBURNER DESIGN VALUES 


FAN DESIGN 


PR FCF = 

0.37500000E+01 

ETAFCF- 

0. 94204 545 E+ 00 

WAFC F = 0.83333334E+00 

T2DS* 

0* 51 866820E + 03 

COMPRESSOR DESIGN 

P RCCF = 

0. 128571436+01 

ETACCF* 

0.98837209E+00 

WACCF= 0. 10000000 E + 01 

T21DS= 

0. 70574 32 9E+ 03 

COMBUSTER DESIGN 

WA3CDS = 

0.19974841F+02 

ETABCF- 

0.9B500000E+00 

DTC QCF= 0. 10000000 E+01 



H.P. TURBINE 

OESIGN 

CNHPCF= 

0.114192826+01 

TFHPCF= 

0.15210490E+01 

ET4PCF= 0 • 1000 00 00 E+01 

DHHPCF= 

0. 1008901 BE + 01 

L.P. TURBINE 

OESIGN 

CNL PCF = 

0.11782237E+01 

TFLPCF- 

0. 14620 71 9E+01 

ETL PCF= 0.1 02 353 44 E + 01 

DHLPCF= 

0. 249 f 7 145E + C1 

CHANGE PRFDS 

FRO” 

2.500 TO 

3.701 AND PRCDS FROM 10.000 TO 

6.754 



FAN CESIGN 


PRFCF* 

0.67532611E+01 

ETAFCF= 

0.942045456+00 

WAFCF= 0.833333 34 E+ 00 

T2DS= 

0. 51 866820E+03 

COMPRESSOR DESIGN 

PRCCF = 

0. 82205365E+00 . 

etaccf= 

0.98837209E+00 

WACCF= 0. 1 0000000 E+01 

T21DS= 

0.801 236 60E + 03 

COMBUSTER DESIGN 

WA 3CDS = 

0*2792 86 02 F+02 

ETABCF= 

0. 98500000E+00 

dt:ocf= o.ioooooooe+oi 



H.P. TURBINE 

DESIGN 

CNHPCF = 

0, 11 4192B2E+01 

TFHPCF= 

0. 10943068E+01 

ETHPCF= 0. lOOOOOOOE+Ol 

DhHPCF= 

0.892 56 63 9E + 00 

L.P. TURBINE 

DESIGN 

CNL PCF = 

0. U947035E + 01 

TFL PCF = 

0.11955020E+0L 

ETL PCF = 0.102353 44 E+01 

DHLP CF = 

0. 26482 349E + C1 

CHANGE PRFDS 

FROM 

2.500 TO 

4.037 AND PRCDS FROM 10.000 TO 

6.163 



FAN DESIGN 


P R FCF = 

0, 764159 02 E+01 

ETAFCF= 

0 .94204545 E + 00 

WAFCF= 0* 8 3333334E + 00 

T 20S= 

0. 518660 2 CE + 03 

COMPRESSOR DESIGN 

PRCCF = 

0.73753452E+00 

ETACCF= 

0.988372 09 E+ 00 

WACCF= 0. 10000000E+01 

T21DS= 

0. 8245888 5E +03 

COMBUSTER DESIGN 

W A3CDS - 

0.30Q70055E+02 

ETABCF- 

C.905OOOOOE+OO 

DTC0CF= 0. 10 000000 E+01 



H.P. TURBINE 

DESIGN 

CNHPCF = 

0. 1 14192 d2E+01 

TFHPCF= 

0. 10136263E + 01 

ETHPCF = 0. 10000000 E + 01 

D HHPCF = 

0.862 6961 CE+OC 

L.P. TURBINE 

DESIGN 

CNL pcf = 

0. 11989344E+01 

TFL PCF = 

0.11433 49 5E+01 

ETL PCF = 0. 102353446 + 01 

DHLPCF= 

0.264 15626E + 01 

CHANGE PRfDS 

FROM 

2.500 TO 

4.-215 AND PRCDS FROM 10.000 TO 

5.931 



FAN Ot S I G'“. 


PRFCF= 

0.80373937E+G1 

E TAFCF = 

0.94204545E+00 

W4FCF= 0.83333334E+00 

T2DS= 

0.5186682 0E + 03 

COMPRESSOR DESIGN 

PRCCF = 

0. 70446542E+00 

ETACCF= 

0. 988372096+00 

WACCF= 0.10000000E+01 

T2 1 DS= 

0* 835C76 22E+03 

COMBUSTER DESIGN 

WA 3C0S = 

0*310588526+02 

ETA&cF= 

0.98500000E+00 

CTCOCF= 0. 10000000 F +01 



H.P. TURblNE 

DESIGN 

CNHPCF = 

0. 11419282E + 01 

TFHPCF= 

0.98150524E+00 

ETrtPCF= 0. 10000000 E+01 

DHHPCF= 

0.8455936 5E+CC 

L.P. TL'RHINE 

DESIGN 

CNL PCF - 

0. 12007443E+01 

TFL PCF = 

0.1 1225456E + 01 

ETLPCF= 0. 10235344 £+01 

DHLPCF= 

0*2635141 6E + 01 

TUR8INF/0UCT 

AREA DESIGN A55 = 

0.87603L92E+01 

AM55 = 

0*238255 L LE + 00 

A25 = 0. 104 94306 F+ 02 

AM 25= 

0. 57 6 61657E-01 

AFTERBURNER 

DFSIG'M 

W G 6 C 0 S = 

0 • 5152 1 51 2E+04 






NOZZLE OtSIG 

N 

Ad- 

0.4B66023RF+01 

AMa= 

0.10000000E+01 

A9= 0. 486602 38 E + 01 

AM9= 

O.IOCCOOCOE+Ol 
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OUTPUT 


MAIN SCNIC 


AM = 0. 

ALTP= 0. 

T 4= 

3260.00 


ETAR = L .0000 

PCNF 

CNF 

ZF 

PRF 

WAFC 

WAF 

O.lOCOOOE+03 

0. 100000E+01 0. 

. 833333E + 00 

0.421496E+01 

0.500000E+03 

0 . 50C00CE+0 3 

PCNC 

CNL 

ZC 

pr; 

W ACC 

WAC 

0.1 0CC0GE+03 

0. 10000CF +01 

0. 814332E + 00 

0.593 1266+01 

o.ioooooe+03 

0.332181E+C3 

T2 

P2 

T21 

PZ1 

T 3 

P3 

0.51366*6+03 

0. 100000F+01 

0. 835076E +03 

O-421496E+01 

0 . 1447 18E+04 

0. 250000E + C ? 

PC8LF 

BLF 

PCRLC 

bl: 

PCBLOP 

BLOB 

0. 

0. 

0*9 70000E-01 

0. 3222166+02 

0. 

0. 

PC8LHP 

BLHP 

PCRLLP 

DLL P 

T 4 

P4 

0. 

0. 

0. 100000E +01 

0. 322216E+02 

0. 326000E+04 

0.2360006+C2 

W A 3 

hfb 

WG4 

FAR4 

ETA8 

OPCOM 

0.Z99959E+03 

0.9482846+01 

0. 309442E +03 

0.316 137E— 01 

0. 985000E+00 

0.56000CE-01 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0. 5094226+02 

0.175142E+01 

0.600000E-01 

0. 165 259E+03 

0. 272 55OE+0 4 

0.9492146+0 1 

TFFLP 

CNLP 

□HTCLP 

DHTF 

T55 

P 55 

0. 1158036 + 03 

0, 19 1 548E + 01 

0. 1 71 750F-01 

0, 123352E+03 

0.224356E+04 

0.427559 E+01 

PCBLDD 

RLDU 

T 24 

P24 

T25 

P25 

0. 

0. 

0.835076E+03 

0. 41 3066E +0 1 

0. 8 35076E + 0 3 

0.41306 6 E + 0 1 

NAD 

WFD 

NG24 

FAR 2 4 

ETAO 

DPDUC 

0.1678196 + 03 

0. 

0.16781 9E +03 

0. 

0. 

0.200C0CE-01 

etaf 

ETAC 

etathp 

FTATLP 

AM5 5 

AM25 

0.829000E +00 

0.8500006+00 

0.9000U0E +00 

0.903000E+00 

0.2382556+00 

0.57861 7E-01 

T 6 

P6 

PS6 

AM6 

V6 

WG6 

0.1 8 161 9E+04 

0.421426E+01 

0 .4 15 724E + 01 

0.143360E+00 

0.290659E+0 3 

0.5094836+03 

T 7 

WFA 

WG7 

FAR 7 

ETAA 

OPAFT 

0.181M9E + 04 

0. 

0.509463E+03 

0.1896576-01 

0. 

0.500000E-C1 

PS8 

AM 8 

V8 

PS9 

AM9 

V9 

0. 21795 4E + 01 

0.100000E+01 

0.1 89O38E+04 

0. 217954E+01 

0.1 OOOOOE+O L 

0. 189038 E+C4 

P S 28 

AMZ8 

V28 

PS29 

AM29 

V29 

0. 

0. 

0. 

0, 

0. 

0. 

BYPASS 

MP6XT 

WFT 

WGT 

VA 

FRO 

0. 50520 3E+00 

0. 

0. 9482846+01 

0. 509483E+03 

0. 

0. 

CVMNO/ 

VJM 

CVONOZ 

VJD 

FGM 

FGP 

0.963159E+00 

0.1B2074E+04 

0. 

0. 

0.23831 8E+05 

0.121464E+05 

ONVERGENT NOZZLE 

FG= 40978.13 


FN= 4097Q.13 


SFC= 0.83308 


CONVERGED AFTER i LOOPS 


COMMON 

O. 1 COOOOE +03 
0 • 8 33333E +00 
0.B14332E+00 
0. 326000E +04 
0.5C0000E+02 
0*1300006+03 
0. 

0.3460006+04 

0.8760326+01 

0.4121246+01 

0.518670E+03 
0 • 835076E +03 
0. 326000E +04 
0.224356E+04 
0. ICOOOOE +01 
0. 1COOOOE +01 
0.200000E+01 
0.2 30000E +01 
0. 

0* 5C0000E +02 

0. ICOOOOE +01 
0. 835076E +03 
0.835076E+03 

0, 

0.1678 l9E*;03 
0. + 

0.224356E+04 
0.9^8234E +01 
0. 181619E+04 
0.1816196+04 
0.509463E +03 
0.415724E+01 
0.155960E+04 
0. 

0.288318E +05 


0.833333E+00 

0.100000E+03 
0.10000DE+03 
0. 100000E + 03 

0. 

0.200000E+01 

0.23000DE+01 

0. 

0. 

O, 104943E+D2 
0,2382556+00 

0, 100000E +01 
0,421496 E +01 

0. 236000E + 02 
0. 427559E +01 
0. 42 1496E +01 
0. 593126 E+01 
0. 900Q00 E +00 
0,9030006+00 
0. 

0. 130000E+03 

0. 500000E +03 
0.421 496E + 01 
0. 41 3066E +01 

0. 

0. 

0. 

0. 4275 59E +01 
0 . 341664 E +03 
0.4214266+01 
0. 400355 E +01 

0. 

0. 290659E + 03 
0, 2 17954E+01 

0. 

D.121464E+Q5 


0,1000006+03 

0.326000E+04 
0.421496E+01 
0.593126E+01 
0 • 1 81282E+04 
0 • 900000E+00 
0.903000E+00 
0. 

0. 

0.192546E+02 

0. 

0 « 1239 1 8E + 03 
0.200259E+03 
0 , 907719E +03 
0.593308E+03 
0.82 9000E+00 
0. 850000E+00 
0.509996E-01 
0.452585E-01 
0,1 OOOOOE +01 
0. 

0, 33218 IE + 03 
0.200259E+03 
0 . 20O259E +03 

0. 

0 • 167819E+03 

0. 

0.5933086+03 
0.2854726-01 
0.4638446+03 
0.4638446+03 
0.5094836+03 
0.1433606+00 
0 . 1 89038E +04 
0. 

0.948284E+01 


- 0 • OOOOOOE— 1 9 

0. 10000QE+03 
0.829000E+00 
0.850000E+00 
0.985000E+00 
0.9815056+00 
0.U2255E+01 
0. 

0. 890000E+00 
0.192546E+02 
0.963159E+00 

0. 159103E+01 
0.160719E+01 
0.1877886+01 
0.187903E+01 
0.5000006+03 
0.1000006+03 
0.1662596+03 
0.1233526+03 
0.8333336+00 
0.97 OOOOE - Ol 

0. 

0. 1607 19E+01 
0.160858E+01 
0. 

0. 

0. 

0.187903E+01 

0, 

0 , 181456E+01 
0, 181808E+GI 
0.189657E-01 
0, 181019E+04 
0, 100000E+0L 
0, 

0.509483E+03 


-0, OOOOOOE- 19 

0. 

0.5000006+03 

0-3321816+03 

0.3105896+02 

0.1141936+01 

0.1200746+01 

0*1150566+04 

Q.515Z15E+04 

0.4866026+01 

0. 

0.5186686+03 
0.144718E+04 
0. 272550E+04 
0. 

0.500000E+03 

0.3321816+03 

0. 

0.322216E+02 
0, 100000E+03 
0, 

0. 

0.835076E+03 

0.835076E+03 

0. 

0. 

0. 

0.835076E+03 
0,16781 9E+03 
0. 1816196 + 04 
0.181619E+04 
0. 

0. 3949546+01 
0.1559606+04 
0.1820746+04 
0.189657E-01 


0.814332E+00 

0.1000006+01 
0.8037396+01 
0.7044656+00 
0.560000E-01 
0. 1000006+01 
0,1023536+Qt 
0. 2000006-01 
0.500000E-01 
0.486602E+01 
0. 

O.1O0OOOE+O1 
0. 250000E+02 
0*9492146+01 
0.322216E+02 
0 .299959 E+03 
0.9850006+00 
0. 309442 E+03 
0.341664E+Q3 
0. 814332E+00 
0. 

0.355137E+03 

0.421496E+01 

0.413066E+01 

0. 

0.200000E-01 

0. 

0. 413066E+01 

0. 

0.400355E+01 
0.400355E+01 
0.500000E-01 
0. 306344E+03 
0.217954E+01 
0.2883186+05 
0.4097816+05 


0. 1000006+03 

0.100000E+01 
0.942045E+00 
0.988372E+00 
0 .1 OOOOOE+Ol 
0.849994E+00 
0.2635146+01 
0. 

0. 

0. 

0. 

0.12 39 16E + 03 
0 .35 5 137E+03 
O.741460E+03 

0. 

0 . 309442E+03 
0.560000E-01 
0.31613 7E-01 
0 .28 54726-01 
0.10C0006+03 
0. 

0. 

0.2002596+03 

0.2002596+03 

0. 

0.5052036+00 

0. 

0 .20025 9E + 03 
0.100000E+01 
0.463844F+03 
0 .463844E + 03 
0. 5313436+03 
0.151 095E+00 
0.189038E+04 
0. 

0.409781E+05 


0.3260C0E+04 0 

O.IOOOCOE+Ol 
0 . 83 33 33 E + 00 
D. lOOCOOE + Ol 
C.9850C06+00 
C. 51 8668E +03 . 
0.835076E+03 
C. 

0. 

C. 

C. 

0.1591036+01 
H. 162376E+01 
C. 188473E + 01 

0. 

C.316137E-01 

0. 

0.1116 996+04 

0. 

C .948 284E + C 1 
G.10CCC0E+0L 

0. 

C. 1607196+01 
0.160858E+01 

0. 

O, 

C. 

0 . 160 8 58 E + 0 1 
C, 

C. 1818086*01 
0,18ie08E+01 
C.816543E+02 
0 .5706176-01 
0. lOCCCOE+Ol 
0.121464E+05 
0.833084E+00 


Off- design . - The following are off- design cases for the mixed-flow turbofan. 

Case 1: The off-design case was selected to be supersonic Mach number (2. 5) at 
50 000 feet altitude. Case 1 illustrates a setup case for the afterburning case (case 2) 
which follows immediately after. Since the engine is operating at the design T4, the only 
input cards required are the AM and ALTP cards. 
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£ D ( l I »AM=2«5f ALTP=50000» *1 

* OFF DESIGN OPERATION AT MAX T4 (SETUP CASE) 


OUTPUT AM = 2.500 ALTP= 50000. T4 = 3260.00 ETAR= 0.8703 


PCNF 

CNF 

ZF 

PRF 

WAFC 

wAF 

0. 5639446+02 

0.4340236+00 

0.435777E+00 

0.1407456+01 

0.222610E+03 

0.291724E+C2 

PCNC 

CNC 

ZC 

PRC 

' WACC 

MAC 

0.856462E+02 

0. 7860446+00 

0. 696801E +00 

0.37D696E+01 

0.693886E+02 

0.1185446+03 

T 2 

P2 

T21 

P21 

T3 

P3 

0. 87566 1E+03 

0.1702756+01 

0.991445E+03 

0.2396546+01 

0.1 5306 1E+04 

0. 88838 7 E+Cl 

PCBLF 

BLF 

PCBLC 

BLC 

PC8L08 

BLOB 

0 . 

0 . 

0. 970000E-01 

0.1149876+02 

0 . 

0. 

PC8LHP 

BL HP 

PC8LLP 

BLLP 

T 4 

P4 

0 . 

0 . 

0.1 00000E+01 

0.114987E+02 

0. 326000E+04 

0. 837006 E+ Cl 

M A3 

WF8 

WG4 

FAR4 

ETA8 

DPCOM 

0. 1 07045E +03 

0.323859E+01 

0.1102836+03 

0.3025456-01 

0. 9R5000E+00 

0. 578362 E- C 1 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

P5 

0.51 1906E+02 

0.150006E+01 

0.5382226-01 

0. 148 746E+03 

0.278122E+04 

0. 36984 8 E+Ol 

TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 

0. 107005E+03 

0. 1069356+01 

0.103248E-01 

0. 755 756E+02 

0. 244645E+04 

0.231426E+0 I 

PC8LDU 

BLDU 

T24 

P24 

T25 

P25 

0 . 

0 . 

0.9914456+03 

0.2 30 175E+01 

0.9914456+03 

0.230175E+C1 

MAO 

WFD 

WG24 

FAR 24 

ETAD 

DPDUC 

0.17318 OE +03 

0 . 

0.1731806+03 

0 . 

0 . 

0.3955196- C 1 

ETAF 

ETAC 

ETATHP 

ETATLP 

AM55 

AM25 

0.7 538996 + 00 

0.773388E+00 

0. 8891176+00 

0. 889316E+00 

0. 161 228E+00 

0. 117851 E+CC 

T 6 

P6 

PS6 

AM6 

V 6 

WG6 

0. 1 63453E + 04 

0.230603E+01 

0. 227469E +01 

0. 1431376+00 

0. 276685E + 03 

0. 2949626+ C i 

T7 

WFA 

WG7 

FAR 7 

ETAA 

OPAFT 

0.163458E+04 

0 . 

0.2949626+03 

0,1110166-01 

0 . 

0.501864E-01 

PS8 

AM8 

V8 

PS9 

AM9 

V9 

0.118683E+01 

0. 1000006+0 1 

0.1797346+04 

0.118688E+01 

0. 100000E+0 1 

0. 17973 A E + 04 

P S 28 

AM28 

V28 

PS29 

AM29 

V29 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

FRO 

0.14609UE+01 

0 . 

0.3238596+01 

0. 294962E+03 

0. 242 123E+04 

0. 219534 E+O 5 

CVMNOZ 

VJM 

CVDNOZ 

VJD 

FGM 

FGP 

0.858472E+00 

0.1542966+04 

0 . 

0 . 

0.1414546+05 

0.110434E+05 


MAIN SCNIC CONVERGENT NUZZLE 


FG = 25188.82 


FN= 3235.39 


SFC= 3.6C356 


CONVERGED AFTER 21 LOOPS 


Case 2: The previous setup case is used here for an afterburning example. Values 
of afterburner efficiency ETAA, pressure loss DPAFT, and Mach number AM6 indicate 
values selected from the afterburner performance map at off-design. The expanded 
nozzle areas are shown; a printout indicating that a nozzle having a greater expansion 
ratio than the convergent- divergent nozzle map used would have been more optimum 
(instead of 2. 150). Consequently, a slight loss in velocity coefficient due to an under- 
expanded nozzle occurred. 


$0(1), T7=3460» IAFTBN-1* * AFTERBURNING CASE 


NOZZLE DESIGN A8= 0. 766377 l 9E+01 AM8= 0. 100000006+01 A9= 0. 2 3089376 E +02 AM9= 0. 25 2 28 365E+0 1 

ARA T 1 0= 1.013 HUT OF RANGE. USE DATA FOR 2.150 


OUTPUT 

AM = 2.500 

ALTP* 50000. T4= 

3260.00 

T7= 3460.00 

ETAR= 0.8703 


PCNF 

CNF 

ZF 

PRF 

WAFC 

MAF 


0. 5639446+02 

0. 4340236 + 00 

0. 4357776 + 00 

0.1407456+01 

0.2226106+03 

0.29L724E+03 


PCNC 

CNC 

ZC 

PRC 

WACC 

MAC 


0.85648^6+02 

0.7860446+00 

0.696801E +00 

0. 370696E +01 

0.6838866*02 

0.1185446+03 


T 2 

P2 

T21 

P21 

T3 

P3 


0.87566 IE + 03 

0. 1 70275E+01 

0 . 991445E +03 

0.2396546+01 

0. 153061E+04 

0. 88838 7 6 ♦ C 1 


PCHLF 

BLF 

PCBLC 

BLC 

PC8L0B 

BLOB 


0. 

0. 

0. 9700006-01 

0. 1149876+02 

0. 

0. 


pcblhp 

BL HP 

PCBLLP 

BLLP 

T4 

P4 


0. 

0. 

0.1 00000E+01 

0. 1149876+02 

0.326000E+04 

0.8370066+01 


W A3 

MFB 

MG 4 

FAR4 

ETAB 

DPCOM 


0.107045E+03 

0.3238596+01 

0.1102836+03 

0. 302 545E-01 

0.9850006+00 

0.5783626-01 


TFFHP 

CNHP 

DHTCHP 

OHTC 

T5 

P5 


0.51190RE+02 

0.1500066+01 

0.538222E-01 

0.1487466+03 

0.2781 2 2E+0 4 

0.3698486+C1 


TFFLP 

CNLP 

DHTCLP 

DHTF 

T55 

P55 


0.10700-36+03 

0.106935E+01 

0.1032486-01 

0. 755756E+02 

0.2446456+04 

0. 231426E+0 1 


PCHLOU 

BLDU 

T24 

P24 

T25 

P25 


0. 

0. 

0.9914456+03 

0.2 30 175 E + 01 

0.991445E+03 

0. 230 1 75 E + 0 1 


MAD 

MFD 

MG24 

FAR 24 

ETAO 

DPDUC 


0. 1731806+03 

0. 

0.173180E+03 

0. 

0. 

0. 39551 9 E-C 1 


ETAF 

FTAC 

ETATHP 

ETATLP 

AM5 5 

AM25 


0. 7538996+00 

0.7733886+00 

0.8891176+00 

0. 889316 E+00 

0. 161 228E+00 

0.117851 E+OC 
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T 6 P6 PS6 AMS V6 WGfe 

0.163458E+04 0.230603E+01 0. 2274686+01 0.1431376+00 0.2 766B56+03 0.294962E+C3 

T7 WFA WG7 FAR7 ETAA UPAFT 

0.346C00E+04 0.109850E+02 0.3059476+03 0.4875706-01 0.774686E+00 0.5010646-0] 

PSP AM8 V8 PS? AM9 V9 

0.1 190966+0 1 O.IOOOOOE+Oi 0.25Q203E+04 0.1144566+00 0.2522846+01 0.5085336+04 

PS28 AM28 V28 PS29 AH29 V29 

0 . 0 . 0 . 0 . 0 . 0 . 

BYPASS HPEXT WFT WGT V A FRO 

0.14609CE+01 0. 0.142236E+02 0,3059476+03 0.2421236+04 0.219534E+C5 

CVMNOZ VJM CVDNCJZ VJO FGM FGP 

0.9b6656E+00 0. 491576E+04 0. 0. 0.467446E+05 0. 

MAIN SHOCK OUTSIDE C-0 NOZZLE FG= 46744.62 FN = 24791.19 SFC= 2.06544 

CONVERGED AFTER 1 LOOPS 


Design case without pressure ratio rematch . - The mixed-flow turbofan engine is 
shown again. However, the design fan and compressor pressure ratios were picked such 
that no rematch was required to balance the static pressures. This is another design 
case. As many design cases as desired can be run in succession. Care must always be 
taken to include the variables in input that need to be changed from the previous design 
case. 


SOI 1 ) » 1 DES = 1 * 

sotn » roes=i, 

PRFDS=5.0,PRCDS=5.0»AM = 0,.';LTP-0,* MIXED FLOW TURBOFAN WITHOUT REQUIRED P REMATCH 
FAN DESIGN PRPCF= 0.100000006+02 6TAFCF= 0.942045456 + 00 WAFCF= 0.8 33333346 + 00 T2DS* 0.518668206 + 03 

COMPRESSOR DESIGN PRCCF= 0. 57142857F+00 ETACC F= 0. 9883 7209F + 00 WACCF= 0. 10000000F + 01 T21DS= 0. 881 299 846 + 03 

COMBUSTER DESIGN WA3CDS= 0. 35881686E + 02 6 TA8CF- 0.985000006 + 00 0TC0CF= 0. 100000006+01 

H.P. TURBINE DESIGN CNHPCF- 0. 1 14192826+0 1 TFHPCF* 0.850010196+00 6THPCF= 0. lOtiOOOOOE+Ol OHHPCF* 0. 78 99267 5E+00 

t.P. TURBINF DESIGN GNLPCF= 0. 12091271E+01 TFLPCF* 0.103620986 + 01 ETL PCF = 0. 10235344F + 01 DHL PCF* 0.25841*246+01 

TUR8I NE/DUCT AREA DESIGN A55* 0. 93469959E +01 AM55= 0. 238253446+00 A25= 0.109941536+01 AM25* 0. 356442 79E+00 

AFTERBURNER DESIGN WG6CDS= 0. 48604900E+04 

NOZZLE DESIGN A8= 0. 46O35268E+0 1 AMa» 0. 10000000E+01 A9= 0.46035268 E+01 AM9= 0. 10CCOCOOE+ 01 

ETARs l.COOG 
WAF 

0.50000CE+C3 
NAC 

0.3835776+ C2 
P3 

0. 25000C E+0 2 
BLOB 

0. 

P4 

0.2360006+02 
DPCOM 

0. 56000C 6- C 1 
P5 

0.1018826+02 
P55 

0. 466804 6+G l 
P25 

0.490000E+0 1 
OPDUC 

0.20000C6-01 
AM25 

0.3564446+00 
wG6 

0.5109426+03 
DPAFT 

0. 5000006-01 
V9 

0.1975866+04 
V29 

0 . 

FRD 

0 . 

FGP 

0. 1395536+05 

MAIN SCNIC CONVERGENT NOZZLE FG- 44000. H FN= 44000.11 SFC* O.SS527 

CONVERGED AFTER 1 LOOPS 


OUTPUT AM * 0. 

ALTP = 

0. T4 = 

3260.00 


PCNF 

CNF 

ZF 

PRF 

WAF C 

0.10C0006+03 

0. 1 OOOOOE+Ol 

0. 8333336+00 

0. 5000006+01 

0. 500000E+0 3 

PCNC 

CNC 

ZC 

PRC 

WACC 

0. 100000E +03 

0. lOOCOOE +01 

0.8143326+00 

0. 5000006+01 

0. 100000E+03 

T 2 

P2 

T21 

P21 

T3 

0.51 86686+03 

0. I OOOOOE+Ol 

0. 88 1300E+03 

0.5000006+01 

0.1 44 85 8E +04 

PCBLF 

blf 

PCBLC 

BLC 

PCBLOB 

0. 

0. 

0.970000E-01 

0. 3720706+02 

0. 

PCBLHo 

RLHP 

PC3LLP 

DLL P 

T 4 

Q. 

0. 

0. 1 OOOOOE+Ol 

0.3720706+02 

0. 3260006+04 

W A3 

WFB 

WG4 

FAR4 

STAB 

0, 346370E +03 

0.1094226+02 

0.357312E+03 

0* 31591 1 F-01 

0. 985000E + OC 

TFFHP 

CNHP 

DHTCHP 

DHTC 

T5 

0.58822 :> E + 02 

0.175142E+01 

0.600000E-01 

0. 1 54 510E+03 

0. 2763686+04 

TFFLP 

CNIP 

UHTCLP 

DHTF 

T55 

0. 1 2 545 7E +03 

0.190220F+01 

0.1717506-01 

0. 1226596+03 

0. 228 15 7E + 0 4 

P C n L D U 

BLOU 

T24 

P24 

T 25 

0. 

0. 

0* 881300E+03 

0.4900006+01 

0.881 300E+0 3 

WAD 

MFD 

WG24 

FAR24 

£ TAD 

0.116423E+03 

0. 

0.1 16423E + 03 

0. 

0. 

ETAF 

6TAC 

ETATHP 

FTATLP 

AM55 

0.8290006+00 

0* P500006 + 00 

0.900000E+00 

0.9030006+00 

0.2382536+00 

T 6 

P6 

PS6 

AM6 

V6 

0.1 9903 8E +04 

0.468986F+01 

0.4491536+01 

0.2566836+00 

0.5412346+03 

T 7 

WFA 

WG7 

FAR 7 

ETAA 

0.19903*6+04 

0, 

0.5109426+03 

0.2188446-01 

0 . 

PS8 

AM8 

V8 

PS9 

AM9 

0. 2432406+01 

0.1000006+01 

0. 1 97586E + 04 

0.243 248E+01 

0.1000006+01 

P S28 

AM28 

V28 

PS79 

AM 2 9 

0 . 

0 . 

0 . 

0 . 

0 . 

BYPASS 

HPEXT 

WFT 

WGT 

VA 

0. 30351 s£ +00 

0 . 

0.109422E+02 

0.5109426+03 

0 . 

CVMNOZ 

VJM 

CVONOZ 

VJO 

FGM 

0.95752 1E+00 

0. 189192E + 04 

0 . 

0. 

0. 300448E +0 5 
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CGHHGN 

0.8333336*00 

0 • 100000E+03 

-O.OOOOOOE-19 

-O.OOOOOOE-19 

C.814332E+00 

0.1000006+03 

0. 326000E+04 0 

0. 1C00006+03 

0. 100000E+03 

0 . 326000E + 04 

0.100000E+03 

0. 

0. 100000E+01 

0.100000E+01 

0 . 100 CC0E + 01 

0. *333336+00 

0. 100000E+03 

0.500000E+01 

0.829000E+00 

0. 500000E+03 

0. 100000E+02 

0.9420456+00 

0 . 633333E+00 

0.814332E+00 

0. 1000006+03 

0 . 500000E +01 

0.8500006+00 

0.383577E+03 

0.571429E+00 

0 .98 8372E + 00 

0 . lOOOCOE+Ol 

0. 3260C06 +04 

0. 

0.181142E+04 

0. 9850006+00 

0.358817E+02 

0. 560000E-01 

O.IOOOOOE+Ol 

0.985CC0E+00 

0. 5C00006 +02 

0.2000006+01 

0.900000E+00 

0.850010E+00 

0.114 193E+ 01 

0.1 00000E + 0 1 

0.789927E+00 

0. 518666 E+03 

0.1 30000= +03 

0.230000E+01 

0 • 903000E+00 

0.103621E+01 

0.120913E+01 

0. 102353E+01 

0.2584136+01 

0. E813C0E+03 

0. 

0. 

0. 

0. 

0.691241E+03 

0.200000E-01 

0. 

0. 

0.3460006+04 

0. 

0. 

0. 8900006+00 

0.486049E+04 

0. 500000E-01 

0. 

0 • 

0.9347005+Cl 

0. 1099426+01 

0.1 04464E+02 

0.104464E+02 

0. 46035 3E + 01 

0. 46035 3E+01 

0. 

0. 

0.4499646+01 

0.2382536+00 

0. 

0. 957521E+00 

0. 

0. 

0. 

C. 

0.4106 JOz +03 

0. 100000E +01 

0.123918E+03 

0.159103E+01 

0. 51 8668E+03 

0. 100000E+0 1 

0. 1239186 + 03 

C. 159103E+01 

0.6^13 (.0E+03 

0 . 500000E + 01 

0.211573E+03 

0. 160867E+01 

0.1 44858E+ 04 

0.250000E+02 

0 .3555036 + 03 

0.1624026+01 

0.3 260OU: +04 

0.236000E+02 

0 . 907691 E +03 

0.1877866+01 

0.276368E+04 

0.101882E+02 

0.7531816+03 

0. 1884 13E+0 1 

0.228157=+ 04 

0.466804E+01 

0 . 60458 5E +03 

O.187790E+O1 

0. 

0.372070E+02 

0. 

0. 

o. iconooE+oi 

0. 5000006 +01 

0. 829000E+00 

0. 500000E+03 

0. 500000E+03 

0.346370E+03 

0.357312E+03 

0.3159116-01 

0.1C0(K.C= *01 

0.5000006+01 

0 . 850000E+00 

0.1000006+03 

0.38357 7E+03 

0.985000E+00 

0.5600006-01 

C. 

0.2C0009= + I>1 

0. 900000 E+OO 

0.473956E-01 

0. 1545 1 OE + 03 

0. 

0.357312E+03 

0. 3159HE-01 

C .111699E+04 

0. 230000= +01 

0.903000E +00 

0.443824E-01 

0. 1226 59E+03 

0.372070E+02 

0. 3945 1 9E+03 

0.2852676-01 

0. 

0. 

0. 

0 . 100000E + 01 

0. 833333E+00 

0. 100000E + 03 

0.8143 32E+00 

0.100000E+03 

0.1094226+02 

0. 5C0000? +02 

0. 130000E+03 

0. 

0.970000E-01 

0. 

0. 

0. 

C. 1000006+01 

O.ICOOOOE+Ol 

0. 500000E +03 

0.383577E+03 

0. 

0. 

0.355503E+03 

0. 

0. 

0. 8813 00= +03 

0. 5000006 +01 

0.211573E+03 

0. 1 60867E + 01 

0. 88 1300E+O3 

0. 500000E + 0 1 

0.21 1573E + 03 

0.1608676+01 

0.3613006+03 

0.490000E +01 

0.211573E+03 

0.1 6 1005E+01 

0 ■ 88 1 300E + 03 

0 .4900006+01 

0.2115736+03 

0 . 161C056+01 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

C. 

0.1164236+03 

0. 

0.11 642 3E + 03 

0. 

0. 

0. 200000 E-Ol 

0.30351 HE + 00 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

c. 

0.228157E+C4 

0.4668 04 E+01 

0 . 60458 5E + 03 

0. 187798E+01 

0.881 300E+03 

0. 4900006+01 

0.2115736+03 

C.161005E+01 

0.1C9422E+C2 

0. 394519E +03 

0. 28 5267E-01 

0. 

0. 1 16423E+03 

0. 

O.IOCOOOE+Ol 

0 . 

0.1990 *36 + C4 

0. 46 8986 E + 01 

0.515033E+03 

0.183454E+01 

0.1 9903 6E + 04 

0. 44553 7E+ 01 

0.5150336+03 

0.1838 06 E+01 

0. 199038= +04 

0, 445637 E +0 1 

0.315033E+03 

0. 183806E+01 

0.1990386+04 

0. 4455 37E+ 01 

0.5150336+03 

C. 1838066+01 

0.M0942F+03 

0 . 

0. 510942E + 03 

0.218844E-01 

0. 

0.500000E-01 

0.535611E+03 

0. 5104016+03 

0.4491 436 +01 

0.341 Z34E +03 

0 • 256683E +00 

0. 196783E+04 

0.424783E+01 

0.5718436+03 

0.2713376+00 

0.3564446+00 

0.1716076+04 

0 • 24 3248 E + 01 

0 . 1 97586E+04 

0. 100000E+01 

0.171607E+04 

0.2432486+01 

0.19 7586E+04 

0 . 100CC0E + 01 

0. 

0 . 

0. 

0. 

0. 189192E + 04 

0.3004486+05 

0. 

0.1395536+05 

0. 3C044BE +05 

0. 1 39553 E + 05 

0 . 109422E +02 

0. 510942E+03 

0. 218844E-01 

0.4400016+05 

0.4400016+05 

0.8952706+00 



CONCLUDING REMARKS 



The computer code (GENENG) presented herein 

has proven to be 

an indispensable 


tool for steady-state cycle analysis of various types of jet engines, namely two-spool 
mixed- or unmixed-flow turbofans and one- or two-spool turbojets. 

This program has been found to be valuable for many applications because it has the 
capability of studying a broad range of engine types having different design character- 
istics, while it also has low- execution-time requirements. The laborious task of match- 
ing components manually at off- design operating has been eliminated. 

The program has proven itself to be easy to use, especially in terms of input re- 
quirements. It is felt that with a minimum of effort the reader can become proficient in 
using the computer code. 

The code is available to be reproduced on the requestor’s tape upon application to 
the authors. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, October 1, 1971, 

132-15. 
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APPENDIX A 


GENENG PROGRAM LISTING 

$1 BFTC GENENG DECK 

COMMON /POINT/IDATPT 1 

COMMON/LOOPPR/KKGO,PRFNEW, PRCNEW 2 

DATAII I/O/ 3 

DIMENSION XLO(5) »XHI ( 5 ) 4 

EQU I VALENCE! XLO, DHLOSV ) » IXHI ,DHHISV) 5 

COMMON/ ALL/ X( 28 ) /DES I GN/ Y( 80)/FR0NT/Z!80)/SIDE/W(48)/BACK/V(72) 6 

COMMON/ DU MMYS/ DUMMY! 100) 7 

EQUIVALENCE (P6DSAV, DUMMY! 7) ) , l AM6DS V, DUMMY ( 8) ) ,( ETAASV, DUMMY! 91 ) , 8 

I (FAR7SV»DUMMY110) > 9 

LOGICAL ERRER, CLEAR 10 

DATA CLEAR/. TRUE./ 11 

COMMON/ERER/ERRER 12 

ERRER=. FALSE. 13 

IF !. NOT. CLEAR) CALL ENGBAL 14 

CLEAR® .FALSE. 15 

DO 1 J =1,408 16 

1 X! J)*D. 17 

IF illl.EQ.O) KKGO=0 18 

111=1 19 

IDATPT =0 20 

CALL CONOUT !1) 21 

P6DSAV=1. 22 

AM6DSV=1» 23 

ET AASV *1. 2 A 

FAR7SV1. 25 

DO 2 1=1,5 26 

XLO 1 1 ) =100. 27 

2 XHI ! I ) *100. 28 

CALL ENGBAL 29 

STOP 30 

END 31 


$1 BFTC ENGBAL DECK 

SUBROUTINE ENGBAL 1 

COMMON / ALL/ 2 

1W0RD , IDES , JDES ,KO£S , MODE , INIT , I DUMP , IAMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD , IMCQ , IDSHOC, IMSHOC, NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL , ERR < 6 J 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU»T4GU ,DUMD1 ,DUMD2 , DELF3 , DELFN , DELSFC, 7 

2ZFDS , PCNFDS ,PRFDS » ETAFDS, WAFOS * PRFCF » ETAFCF * WAFCF , 8 

3ZCDS »PCNCDS,PRCDS , ETACDS, WACDS ,PRCCF » ETACCF , W ACCF , 9 

4T4DS , WFBDS , DTCODS . ETABDS, WA3CDS, DPCODS, DTCOCF , E TABCF, 10 

5TFHPOS,CNHPOS,ETHPDS,TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 11 

6TFLPDS»CNLPDS,ETLPDS»TFLPCF»CNLPCF»ETLPCF»DHLPCF»T21DS , 12 

7T24DS , WFDDS » DTDUDS , ETADDS, WA23DS , DPDUDS, DTDUCF » E TADCF » 13 

8T7DS , WF ADS , DTAFDS , ETAADS, WG6CDS, OP AFDS » DT4FCF , ETAACF , 14 

9A55 , A25 ,A6 , A7 , A8 ,49 ,428 , A29 , 15 

SPS55 » AM55 , C VDNOZ , CVMNOZ, A8SAV , A9SAV . A28SAV, A29SAV 16 
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3 

4 


COMMON / FRONT/ 






17 

111 »P 1 » HI 

9 S1 

*T2 

,P2 

*H 2 

,S2 , 

18 

2T21 *P21 t H21 

*S21 

t T3 

,P3 

*H3 

, S3 , 

19 

3T4 n P4 9 H4 

f S4 

*T5 

,P5 

*H5 

,S5 , 

20 

4T55 *P55 9 H55 

9 S55 

9 BLF 

* 8 LC 

9 BLOU 

, BLOB , 

21 

5CNF 9 PRF 9 ETAF 

9 WAFC 

9 WAF 

» WA3 

f WG4 

» F AR*, , 

22 

6 CNC t PRC ? ET AC 

9 WACC 

9 WAC 

» ET AB 

9 DPCOM 

, DUMP , 

23 

7CNHP ? ET ATHP# DHTCHP 

9 DHTC 

9 BLHP 

9 H G 5 

9 F AR5 

,CS 

$4 

8CNLP t ET ATLP* DHTCLP 

« DHTF 

9 BLLP 

9 NG55 

*FAR55 

.HPEXT , 

25 

9AM t ALTP 9 ETAR 

9 ZF 

9 PCNF 

*ZC 

9 PCNC 

» WFB , 

26 

STFFHP *TFFLP *PCBLF 

9 PCBLC 

s PCBLDU 

i ? PCBLOB 

t PCBLHP 

» PCBLLP 

27 

COMMON! / SIDE/ 






28 

1XP1 * XWAF * XW AC 

tXBLF 

9 XBLDU 

*XH3 

9 DUMS1 

,DUMS2 , 

29 

2XT21 9 XP2 1 f XH21 

? XS2 1 

9 T23 

» P23 

9 H23 

, S23 , 

30 

3T24 *P24 f H24 

9 S24 

t T25 

® P25 

9 H2 5 

» S25 

31 

4T28 # P28 9 H28 

9 S28 

9 T29 

» P29 

9 H29 

» S29 , 

32 

SHAD ,WFD t WG24 

*FAR24 

9 ET AD 

9 3PDUC 

f BYPASS 

.DUMS3 , 

33 

6TS28 9 PS28 f V28 

9 AM28 

*TS29 

9 PS29 

*V29 

, AM29 

34 

COMMON! / BACK/ 






35 

1XT55 ,XP55 9 XH55 

t XS55 

* XT25 

§ XP25 

9 XH25 

, XS25 , 

36 

2XWFB &XWG55 #XFAR55 

9 XWFD 

*XWG24 

* XF AR24 

9 XXP1 

.DUMB , 

37 

3T6 »P 6 9 H 6 

9 S 6 

*T7 

? P7 

ff H7 

,S7 , 

38 

4T8 9 P 8 *H 8 

9 S 8 

t T9 

9 P9 

9 H9 

,S9 , 

39 

5 WG 6 9 WF A 9 WG7 

9 FAR7 

9 ETAA 

t DRAFT 

*V55 

» V25 , 

40 

6 PS 6 9 V 6 *AM6 

*TS7 

*PS7 

*V7 

,AM7 

» AM25 , 

41 

7TS8 ? PS8 t V8 

t AMS 

t T'S9 

9 PS9 

9 V9 

» AM9 , 

42 

8VA 9 FRD 9 V JD 

t FGMD 

9 VJM 

9 FGMM 

9 FGPD 

»FGPM , 

43 

9FGM 9 FGP 9 HFT 

tWGT 

9 FART 

t EG 

9 FN 

, SFC 

44 

C OM MOM/ DU MMYS/ DUMMY ( 1001 





45 

LOGICAL ERRER 9 FAN 






46 

EQUIVALENCE { FAN, DUMMY < 1 1 ) > 

9 C I SPOOL 9 DUMMY ( 6 ) ) 


47 

COMMOM/ERER/ERRER 






48 

DIMENSION VAR (6) »0EL(6l»ERRB(6)?DELVAR(6) 

9 EMAT (6 

,6>,VMAT(6» , 

49 

lAMATf 5) 






50 

DATA 4H0RD/6HEMGBAL/ 






51 

DATA /DELTA, VLIM, VCHNGE, NOMISX/ 




52 

1 0«00l90«100 9 0*850 f 4/ 





53 

CALL PUTIN 






54 

IF (IMIT.EQ.l) GO TO 

1 





55 

TFFHP= TFHPDS 






56 

TFFLP= TFLPDS 






57 

L00PER=0 






58 

NUMMAP=0 






59 

NOM ISS =0 






60 

LOOPED 






61 

MI SMAT = 0 






62 

NOM AP= 0 






63 

IG0=2 






64 

DO 3 1=1*6 






65 

VMATm=0c 






66 

AM AT ( I 1=0© 






67 

DELVAR ( I ) =0» 






68 

DO 3 1=1*6 






69 

EMAT C I * L ) =0 * 






70 

L00PER=L00PER*1 






71 

CALL COFAN 






72 

W0RD=4 HORD 






73 

IF CLOOPERbGTsITRYSS 

ERRER= 

TRUE® 




74 

IF (L33PER«GT* ITRYS3 

GO TO 

24 




75 

IF ( N3MAP® GT®0 ) GO TO 2 





76 

NUMM AP =0 






77 
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5 


VAR(U=ZF*1G0. 78 

If C MODE® NE « 3 ) VARC2)=PCNF 79 

IF ( M3DE« EQ® 3) VAR C 2 ) =?4/10® 80 

VAR C 3 $ =ZC*1Q0® 81 

IF ( M3DE® NE* 1 3 VARS4)=PCNC 82 

IF t MODE® EQ* 1 ) VARI43=T4/10® 83 

VAR ( 5 I =TFFHP 84 

VAR C 6) =TFFIP 85 

NHAX=5 86 

IF (F AM® OR® I SP00L«EQ®2 5 GO TO 6 87 

NMAX=3 88 

VAR ( 31 =TFFLP 89 

6 DO 7 I =X f NMAX 90 

7 IF UBSCERRCI) KGT*TOLALL$ GO TO 8 91 

CALL PERF 92 

CALL ERROR 93 

8 IF t L33P« GT » 0 ) GO TO 10 94 

MAPED3=0 95 

MAPSEF =0 96 

DO 9 1=1* NMAX 97 

ERRS { I ) =ERR ( I ) 98 

9 DEL ( n =VDELTA*VARf I 3 99 

GO TO 13 100 

10 IF { MI SMAT « GT.O ) GO TO 27 101 

IF ( MAPEDG® EQ® 0) GO TO 11 102 

MAPED3=0 103 

MAPSEF = 1 104 

VAR ( L33P ) =V AR (LOOP ) *2 ® *DEL ( LOOP ) 105 

GO TO 14 106 

11 IF C MAPSET ® EQ* 0 1 VAR J LOOP) -VAR ( LOOP ) +DEL ( LOOP ) 107 

IF { MAPSET • EQ* 1 ) VAR f LOOP) =VAR { LOOP ) -DEL C LOOP) 108 

MAPSET = 0 109 

DO 12 1 = 1? NMAX 110 

12 EMAT ( I ? LOOP 5 = { ERRB( I 3-ERRf I 33 /DEL I LOOP) 111 

13 LOOP=L 30P + 1 112 

IF CL33P.GT.NMAX) G3 TO 15 113 

VAR C L33P J=VAR« LOOP 3-DELt LOOP) 114 

14 ZF=VAR ( 13/100® 115 

IF ( M3DE® NE® 3 ) PCNF=VARC2) 116 

IF ( M3DE# EQ®3) T4=VAR f 2 ) *10. 117 

ZC=V AR {31/ 100« 118 

IF CM3DE.NE.il PCNC=VAR{4) 119 

IF CM3DE.E0.il T 4= VAR C 4 1 *10® 120 

TFFHP= V AR ( 5 I 121 

TFFLP= V AR C 6 ) 122 

IF C ISPOOL.EQ. 1 ) TFFLP=VAR C 3 3 123 

IF ( ZF « LT * 0® I ZF=0„05 124 

IF CZ3.LT ® 0® 1 ZC=0®05 125 

GO TO C2*4KIG0 126 

15 00 16 1 = 1 ? NMAX 127 

16 AMAT ( I ) =-ERRBC I ) 12B 

DO 18 1 = 1? NMAX 129 

I ZERO= 0 130 

DO 17 LOOP=I t NMAX 131 

17 IF (EMATC I ? LOOP I . EQoO» I IZERO=I ZERO^l 132 

IF ( IZERO.LT.NMAXI GO TO 18 133 

WRITE C 6 ? 30 1 I 134 

LOOPER= ITRYS+100 135 

GO TO 24 136 

18 CONTI M JE 137 

00 20 LOOP= 1 f NMAX 138 

I ZERD= 3 139 

DO 19 1=1 ? NMAX 140 
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19 IF ( EM AT ( I 9 LOOP ) *EQ« 0« ) IZERO=lZERO*l 141 

IF ( f Z ER0® LT ® NMAX ) GO TO 20 142 

WRITE I 6® 31 ) LOOP 143 

LG0PER=ITRYS*10Q 144 

GO TO 24 145 

20 CONT I M U E 146 

21 CALL MATRIX ( EMAT *VM AT* AMAT * NMAX ) 147 

LBIG=0 14B 

VARBI 0=0® 0 149 

00 22 1 = 1 $ NMAX 150 

ABSVAR*AB$( VMAT(L)) 151 

IF (A8$VAR*LE®VL IM*VAR( L ) ) GO TO 22 152 

IF U3SVAR®LE»VARBIG) GO TO 22 153 

LBI G=L 154 

VARBI3= ABSVAR 155 

22 CONTINUE 156 

VRAT 13-1*0 157 

IF { L3 IGeGT® 0 ) VRATIO=VLIM*VAR(LBIG)/VARBIG 158 

ERRAVE =0« 0 159 

VMT AVE =0® 0 160 

DEL AVE =0® 0 161 

00 23 L=1 * NMAX 162 

DELVAR ( L ) = VRAT I 0*VMAT ( L) 163 

ERRAVE=ERRAVE*ABS(AMAT(LH 164 

VMT AVE =VMTAVE+ABS { V^f ATI L ) ) 165 

DELAVE=DELAVE*ABS(DELVAR(L)) 166 

23 VAR( L) =VAR(L )+ DEL VAR C L I 167 

ERRAVE = ERRAVE/ FLOAT! NMAX ) 168 

VMT AVE = VMT AVE/ FLOAT i NMAX ) 169 

DEL AVE =DE LAVE/ FLOAT! NMAX ) 170 

IF ( MI SMAT *GT* 0 S GO TO 29 171 

IF ( NOMISS® EQ® 0 ) MISMAT=1 172 

IF ( MI SMAT » EQ*0) IG3=1 173 

24 WRITE (8*32) LOOPER 174 

DO 25 1 = 1* NMAX 175 

25 WRITE 18*33) AMAT U) * I EMAT i I « L ) * L = l* 61* VMATU) *DELVAR ! 1 ) * VAR tl) 176 

WRITE (8*34) ERRAVE* VMT AVE* DEL AVE 177 

26 IF (L33PER e LT#ITRYS) GO TO 14 178 

CALL ERROR 179 

RETURN 180 

27 VMT AWX =VMT AVE 181 

DO 28 1 = 1* NMAX 182 

28 AMAT ( I ) =“ERR ( I ) 183 

GO TO 21 184 

29 WRITE (8*35) AMAT * ERR AVE * DEL VAR* DEL AVE * VM AT * VMTAVE* VAR 185 

MISMAT=MISMAT*1 186 

IF (VMTAVE®LT ® VCHNGE ®VMTAVX ) GO TO 26 187 

WRITE (8*36) 188 

IF <MISMAT®LT»NOMISX) N0MISS=1 189 

M IS MAT =0 190 

L00P=3 191 

1 G0 = 2 192 

GO TO 5 193 

C 194 

30 FORMAT ( 4H0R0W* I 2* 16H IS ZERO IN EMAT) 195 

31 FORMAT (7H0C0LUMN*!2f 16H IS ZERO IN EMAT) 196 

32 FORMAT (8H8 ERRB, 2 8X23HERROR MATRIX AFTER LOOP * I 4 * 29X4HVM AT * 6XSH 197 

1 DEL VAR * 7X14HVAR I ABLES $$$$$) 198 

33 FORMAT ( 1H0* F8*4 f 8X6F10®4* 10XF 10® 4* F 1 1 . 4* 4XF 1 1 . 4 * 6H$ $$$$$ ) 199 

34 FORMAT (1H0*F8.4, 32X14HAVERAGE VALUES* 31X * 2FU® 4* 6H$$$$$$ ) 200 
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35 FORMAT 1 1 2HO - — AM AT , 7F 16,, 6 » , / ,1 2H DELVAR * 7F 1 6 . 6* 6 

1H$$S$$ $ * / ® 12H — VMAT®7F16®6»6N$$$$$$§/g-12H VAR,6F15*6 

2 ? 6H$$$ &$$ ) 

36 FORMAT ( 1HO , 50K 22HCH ANGE TOO SMALL$$$$$$I 
END 


201 

202 

203 

204 

205 


$ I B F T C GUESSS DECK 

FUNCTION GUESS C M® T, T D, P, PD ,W f WDfD P DDtWD) 1 
IF (M* EQ® 0 1 GUESS«VD® t (T/TD)**1«60) * f IDD/D)**0®50) 2 
IF C EQ^ 1 ) GUeSS=VD*UP/PDJ**1.80)*UDD/D)**0®33) 3 
IF CM* EQ« 2 ) GUESS*VD«( <W/WO>**6.33)«( ( DD/D ) **i ® 00 ) 4 
IF ( M» EO® 3 ) GUESS- VO* C I W/MD )**0*00)®( (P/PD)* *0*50) 5 
IF CM* EQ* 4 ) GUESS»VD*( (W/WO 1**0.001 *( < P /PD )**G a 50 ) 6 
IF (M*EQ®5) GUESS=VD* ((T/TD)**l«iGl*((DD/D)**G*60) 7 
IF CM* EQ® 6 ) GUESS=VD*{ CP/PD)**1®00I*( (D/DD)**Q®25) 8 
IF CM* EQ* 7 ) GUESS =VD* C CP/PD)**0«62)M CD/DD)**0®31) 9 
RETURN 10 
END 11 


$1 BFTC MATRIX DECK 

SUBROUTINE MATRIX (E*V*A*M> 1 

DIMENSION EC6*6)®V(6) ® A ( 6) ® P I V (7) * T ( 6® 7 ) 2 

NN-N+I 3 

NM=N-1 4 

DO 1 I«l, N 5 

TCI*NM)*Am 6 

DO 1 J*1,N 7 

1 T(ItJ)=EC I » J ) 8 

DO 7 1=1® N 9 

TEMP-0 « 10 

DO 2 J=ItN 11 

IF ( TE MP* GT* ABS ( T ( J® I) )) GO TO 2 12 

TEMP = ABS(T( J, I) ) 13 

IPIV=J 14 

2 CONTINUE 15 

IPl=I+l 16 

DO 3 J = I P 1 , NN 17 

3' PIVC J)=TC IPIV® JI/TCIPIV* I) 18 

I FROM= N 19 

I TO=N 20 

4 IF C I F ROM® EQ » I P 1 V ) GO TO 6 21 

RM=-T ( I FROM, I ) 22 

DO 5 J = IP 1 , NN 23 

5 Tf ITOt J)=TUFROM«J) + RM»PIV(J) 24 

I T0= I T 3-1 25 

6 I FROM 2 1 FROM-1 26 

IF f I FROM«GE® I ) GO TO 4 27 

DO 7 J=IP1®NN 28 

7 T( I ® J) =P I V ( J ) 29 

DO 8 1=1, NM 30 

J=NN~I 31 

K=N- I 32 

DO 8 L = J? N 33 
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8 


T(K*Nm=T{ K ? NN>-T(K, L)*T{L®NN) 
DO 9 1=1, N 

vm=ni 

RETURN) 

END 


t i 

9 NN ) 


34 

35 

36 

37 

38 


SIBFTC PUTIN DECK 


COMMON 

/POINT/ IDATPT 




2 

COMMON! 

/ ALL/ 




3 

1 WORD 

9 I DES § JDES 

9 KDES 9 MODE 

9 INIT 

® I DUMP , I AMTP , 

4 

2IGASMK 

t IDBURNj IAFTBN 

tlDCD 9 IMCD 

9 I DSHOC 

9 IMSHOC 9 NOZFLT 9 

5 

3ITRYS 

eLOOPER* NOMAP 

9 NUMMAP» MAPEDG 

9 TOLALL 

, ERR C 6 ) 

5 

COMMON 

/DESIGN/ 




7 

1PCNFGJ 

t PCNCGU f T4GU 

9 DUMD1 * DUMD2 

tDELFG 

t DELFN ® OELSFCt 

8 

2ZFDS 

9 P CNFDS*PRFDS 

f ETAFDS* WAFOS 

9 PRFCF 

9 ETAFCF, WAFCF 9 

9 

3ZCDS 

®pcncds 9 prcds 

t ETACDSt WACDS 

t PRCCF 

9 ETACCF 9 WACCF 9 

10 

4T4DS 

* WFBDS f DTCODS 

9 ETAbDS * WA3CDS 

9 3PC0DS 

9 DTCOCF® ETABCF 9 

11 

5TFHPDS 

9 CNHPDS® ETHPDS 

r TFHPCFsCNHPCF 

f ETHPCF 

9 DHHPCF 9 T2DS , 

12 

6TFLPDS 

9 CNLPDS# ETLPDS 

9 TFLPCF 9 CNLPCF 

9 ETLPCF 

9 DHLPCF 9 T21DS 9 

13 

7T24DS 

$ WFDDS 9 DTOUDS 

9 ET ADDS? WA23DS 

t DPDUDS 

9 DTDUCF 9 ETADCF 9 

14 

8T7DS 

9 WF ADS » DTAFDS 

9 ETAADS, WG6CDS 

9 DP AFDS 

9 DTAFCF f ETAACF 9 

15 

9 A55 

9 A25 ,A6 

t A7 9 A 8 

*A9 

9 A28 9 A29 , 

15 

$PS55 

•AM55 tCVDNOZ 

9 CVMNOZ ® ASS AV 

, A9SAI/ 

t A28SAV® A29SAY 

17 

COMMON 

/ FRONT/ 




18 

1T1 

9 PI 9 HI 

9 SI *T2 

® P2 

®H2 ®S2 ® 

19 

2T21 

t P2 1 ®H21 

,S21 » 13 

®P3 

9 H3 9 S3 ® 

20 

3T4 

9 P4 *H4 

9 S4 *T5 

®P5 

*H5 » S5 

21 

4T55 

*P55 9 H55 

t 555 § BLF 

® BLC 

9 BL DU 9 BLOB 9 

22 

5CNF 

« PRF 9 ETAF 

f WAFC , WAF 

9 WA3 

9 WG4 t F AR4 ® 

23 

6CNC 

v PRC tETAC 

, WACC 9 WAC 

9 ETAB 

t DPCOM 9 DUMF 9 

24 

7CNHP 

t ET ATHP* DHTCHP 

f DHTC 9 BLHP 

*WG5 

9 F AR5 f CS 9 

25 

8 CNLP 

9ETATLP»DHTCLP 

9 DHTF f BLLP 

9 WG55 

9 F AR55 9 HPEXT ® 

26 

9AM 

9 ALTP tETAR 

*ZF 9 PCNF 

9 zc 

tPCNC tWFB ® 

27 

$TFFHP 

t TFFLP «f PCBLF 

tPCBLC 9 PC 8 LDU 

t PCBLOB 

? PCBLHP 9 PC 8 LLP 

28 

COMMON) 

/ SIDE/ 




29 

1XP1 

tXWAF 9 XWAC 

9 XBLF 9 XBLDU 

*XH3 

9 DUMS1 9 DUMS2 « 

30 

2XT21 

t XP21 ? XH21 

9XS21 f T23 

9 P23 

9 H23 f S23 ® 

31 

3T24 

tP 24 t H24 

9 S24 ? T25 

9 P25 

? H25 ® S25 9 

32 

4T28 

9 P28 ® H28 

9 S28 » T29 

®P29 

9 H29 9 S29 9 

33 

5 WAD 

? WFD 9 WG24 

9 FAR 24 9 ET AD 

sDPDUC 

9 BYPASSfDUMS3 * 

34 

6TS28 

®PS28 9 V28 

9 AM28 ®TS29 

« PS29 

f V29 9 AM29 

35 

COMMON) 

/ BACK/ 




35 

1XT55 

9 XP55 *XH55 

9 XS55 9 XT25 

? XP25 

9 XH25 9 XS25 * 

37 

2XWFB 

t XWG55 » XFAR55 

9 XWFD *XWG24 

9 XF AR24 

9 XXPI 9 OUMB ® 

38 

3T6 

f P 6 9 H 6 

tS 6 f T7 

*P7 

®H7 ? S7 

39 

4T8 

f P 8 *H 8 

®S 8 9 T9 

9 P9 

9 H9 9 S9 

40 

5WG6 

tWFA 9 WG7 

9 FART f ETAA 

f DPAFT 

9 Y55 f V25 ? 

41 

6 PS 6 

9 V 6 9 AM 6 

t TS7 9 PS7 

®V7 

9 AMT ,AM25 « 

42 

7TS8 

9 PS 8 $ V 8 

9 AM 8 t TS9 

f PS9 

$ V9 9 AM9 9 

43 

8 VA 

9 FRD , V JD 

o FGMD , VJM 

9 FGMM 

9 FGPD 9 FGPM 9 

44 

9FGM 

f FGP g WFT 

f WGT 9 FART 

fFG 

? FN ? SFC 

45 

COMMON/DUMMYS/DUMMYI 

100 ) 



46 

COMMON /LOOPPR/KKGO»PRFNEW> PRCNEW 



47 

DIMENSION XSAVE1308) 

9 XFILL C 1 ) 



48 


tUUl V^LfcNLfc IXf-ILL 
LOGICAL ERRER 
COMMON) /ERER/ ERR ER 


49 

50 
5 i 


50 



o u> 


C *** IT I TLE = 1 WILL READ IN TITLE 52 

C NODE =0 FOR CONSTANT T4 53 

C HOOF = 1 FOR CONSTANT PCNC 54 

C MODE = 2 FOR CONSTANT WF8 55 

C*** M0DE=3 FOR CONSTANT PCNF 56 

C *** INIT =1 WILL NOT INITIALIZE POINT 57 

C *** I DUMP =1 WILL DUMP LOOPING WRITE-OUTS IF ERROR OCCURS 58 

C *** IDUMP =2 WILL DUMP LOOPING WRITE-DUTS AFTER EVERY POINT 59 

C *** IAMTP = 0 WILL USE INPUT AM AND MIL SPEC ETAR 60 

C *** IAMTP =1 WILL USE INPUT AM AND INPUT ETAR 61 

C *** IAMTP =2 WILL USE T2 AS Ti=Tl*T2 AND STANDARD PI 62 

C **» IAMTP =3 WILL USE P2 AND STANDARD II 63 

C *** IAMTP =4 WILL USE T2 AND P2 64 

C *** IAMTP *5 WILL USE RAM2 FOR SPECIAL RECOVERY 65 

C *** IGASMX =-l SEPERATE FLOW, INPUT AM6 66 

C **# IGASMK =0 SEPARATE FLOW, A6=A55 67 

C *** IGASM<=1 WILL MIX DUCT AND MAIN STREAMS, A6=A25+A55 68 

C *»* IGASMX=2 WILL MIX DUCT AND MAIN STREAMS? INPUT AM6 69 

C »** IDBURN=1 FOR DUCT BURNING, INPUT T24 70 

C I DBURN=2 FOR DUCT BURNING, INPUT WFD 71 

C **« I AFTBN=1 FOR AFTERBURNING, INPUT T7 72 

C *** I AFTBN=2 FOR AFTERBURNING, INPUT WF A 73 

C *** IDCD =1 DUCT NOZZLE WILL BE C-D 74 

C *** IMCD =1 MAIN NOZZLE WILL BE C-D 75 

C *** NOZFLT = 1 FOR FLOATING MAIN NOZZLE 76 

C *** NOZFLT =2 FOR FLOATING DUCT NOZZLE 77 

C *** NOZFLT “3 FDR FLOATING MAIN AND DUCT NOZZLES 78 

C ITRYS = N NUMBER OF PASSES THRO ENGINE BEFORE QUITTING 79 

DIMENSION ITABLEC 400 ) 80 

DATA ( ITABLE(I), 1-1,3 )/ 0,400 ,0/ 81 

1 CALL ZERO 82 

IF ( K<GO* EQ© 1 1 GO TO 5 83 

I DES=D 84 

CALL INPUT «5,6 t l,W0RD,ITA8LEI 85 

IF { ERRER® AND* I AFTBN® GT® 0) GO TO 1 86 

ERRER= » FALSE ® 87 

C TABLE IS REFERENCED TO COMMON/ALL/FIRST ENTRY 88 

IF ( IDES* EQ® 0 1 GO TO 7 89 

IF { K< SO® NE® 2 1 GO TO 3 90 

DO 2 1=1,308 91 

2 XFILLC I) = XSAVEU) 92 

CALL INPUT (5,6*1*W0RD,ITABLE1 93 

CONTINUE 94 

SAVE INPUT IN CASE DF LOOP ON PRESSURE RATIOS 95 

DO 4 1=1,308 96 

4 XSAVEI n=XFILL(I) 97 

GO TO 7 98 

5 DO 6 1=1,308 99 

6 XFILLf n = XSAVECI) 100 

WRITE 16,81 PRFD$*PRFNEW,PRCDS,PRCNEW 101 

PRCDS= PRCNEW 102 

PRFDS= PRFNEW 103 

7 CONTINUE 104 

KKG0=2 105 

IF {IAFTBN*GT®0®QR®IDBURN*GT®Of INIT=1 106 

IF ( NOZFLT «GT® 0 1 INIT=1 107 

IF C M3DE® EQ® 0 ) WRITE 18,91 I DES* AM, AITP, T4* T24, T7 108 

IF ( MODE® EQ» 1 1 WRITE 18,101 IDES, AM, ALT P, PCNC, T 24* TT 109 

IF { MODE® EQ « 2 ) WRITE i 8,111 I DES , AM , ALTP , WFB , T24, T7 110 

CALL CQINLT 111 

RETURN 112 

C 113 
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©on 


114 


115 

FORMAT ( 18H0CHANGE PRFDS FR0M.F9. 3* 4H T0.F9.3.16H AND PRCDS FROM 116 

1 ? F 10. 3, 4H TOsFlO.3) 1 17 

9 FORMAT (IH0.7H IDES- » 1 3 » 10X7H AN=,F7.3»6X7H ALTP-.F7.0.6X7H 113 

1 T4=, F8.2.5X7H T24=»F8.2» 5X7H T7=,F8.2,6H$$$$$$) 119 

10 FORMAT ( lHOt 7H IDES = , 13, 10X7H AM= , F7. 3, 6X7H ALTP=,F7.0,6X7H 120 

1PCNO.F8.3.5X7H T24=,F8.2» 5X7H T7=» F8. 2 »6H$ $$$$$ ) 121 

11 FORMAT ( IHO, 7H IDES = » 13 » 10X7H AM=, F7. 3 , 6X7H ALTP=,F7. 0 » 6X7H 122 

1 WFB=, F8. 4, 5X7H T24=,F8.2, 5X7H T7=.F8.2.6H$$ti$$) 123 

END 124 


$1 BFTC ZERO DECK 

SUBROUTINE ZERO 
COMMON / ALL/ 

1 WORD , IDES , JOES , KDES .MODE , INIT , IDUMP . I AMTP , 
2IGASMX , IDBURN, IAFTBN , IDCD . IMCD . 1DSH0C, IMSHOC.NOZFLT, 
3ITRYS . LOOP ER. NOMAP , NUMMAP , MAPEDG, TOLALL , ERR l 6) 
COMMON/DESIGN/QXQ! 80 ) 

COMMON / FRONT/ 


1T1 »P1 

t HI 

fSl 

9 T2 

9 P2 

9 H 2 

f 52 

9 

8 

2T21 ,P21 

*H21 

t S21 

t T3 

*P3 

tH3 

*S3 

9 

9 

3T4 ,P4 

« H4 

*S4 

9 T5 

t P5 

*H5 

9 S5 

9 

10 

4T55 »P55 

9 H55 

? S55 

9 BLF 

9 BLC 

9 BLDU 

9 BLOB 

t 

11 

5CNF , PRF 

t ETAF 

, WAFC 

9 WAF 

9 W A3 

*WG4 

9 F AR4 

9 

12 

6 CNC . PRC 

9 ETAC 

? WACC 

*WAC 

y ETAB 

§ DPCOM 

9 DUMF 

t 

13 

7CNHP .ETATHP 

sDHTCHP 

9 OHTC 

® BLHP 

9 WG5 

9 F AR5 

tCS 

t 

14 

8 CNLP .ETATLP 

* DHTCLP 

9 DHTF 

s 8 LLP 

9 toJG55 

9FAR55 

9 HPEXT 

» 

15 

9AM • ALTP 

t ETAR 

tZF 

9 PCNF 

*ZC 

9 PCNC 

f WFB 

9 

15 

$TFFHP .TFFLP 

t PCBIF 

t PCBLC 

. PCBLDU. PCBLOB 

9 PCBLHP 

9 PCBLLP 

17 

COMMON / SIDE/ 







18 

1XP1 . XWAF 

9 XWAC 

9 X 8 LF 

9 XBLDU 

9 XH3 

» DUMS 1 

f DUMS2 

9 

19 

2XT21 . XP 21 

t XH21 

? XS2 1 

9 T23 

? P23 

9 H23 

t S23 

f 

20 

3T24 ,P24 

? H24 

*S24 

t T25 

» P25 

9 H25 

« S25 

9 

21 

4T28 ,P28 

t H28 

9 528 

9 T29 

9 P29 

9 H 29 

*S29 

9 

22 

5WAD »WFD 

s HG24 

t FAR24 

9 ETAD 

t QPDUC 

» BYPASS 

9 DUMS3 

t 

23 

6TS28 . PS28 

? V28 

9 AM28 

9 TS29 

fPS29 

*V29 

t AM29 


24 

COMMON / BACK/ 







25 

1XT55 . XP55 

9 XH55 

f XS55 

9 XT25 

t XP25 

9 XH25 

?XS25 

9 

25 

2XWFB , XWG55 

t XFAR55 

f XWFD 

9 XWG24 

9 XF AR24 

* XXP1 

t DUMB 

9 

27 

3T6 ,P 6 

» H 6 

9 S 6 

tT? 

tP7 

f H 7 

tS7 

9 

28 

4T8 ,P 8 

9 H 8 

f S 8 

9 19 

9 P9 

*H9 

t S9 

9 

29 

5WG6 , WFA 

t HG7 

t FAR? 

t ETAA 

9 OPAFT 

9 V55 

9^25 

9 

30 

6 PS 6 . V 6 

© AM 6 

*TS7 

s PS7 


9 AM? 

* AM25 

% 

31 

7TS8 . PS 8 

tV 8 

? AM 8 

s TS9 

9 PS9 

*V9 

t AM9 

S 

32 

8 VA .FRO 

• VJD 

t FGMD 

9 VJM 

9 FGMM 

9 FGPD 

*FGPM 

9 

33 

9FGM , FGP 

? WFT 

t WGT 

9 FART 

t FG 

f FN 

» SFC 


34 

COMMON /DUMMYS/ DUMMY! 100) 






35 

DIMENSION Zl(63) ,Z2(48),Z3(72) 





36 

EQUIVALENCE !Z1,T1), 

(Z 2 .xpis.iz 3 ,; 

KT55I 




37 

I DES=D 








38 

JDES=D 








39 

INI T=0 








40 

IDBURSi=0 








41 

I AFTBM=G 








42 

idsho:=3 








43 

I MSHOC =3 








44 

T2Q=T2 








45 


52 




P20=P2 

46 


T4Q=T4 

47 


DO 1 1=1*63 

48 

1 

Z1 ( I ) =0® 

49 


DO 2 1=1,48 

50 

2 

z2<n*o« 

51 


DO 3 1=1,72 

52 

3 

Z3U)0. 

53 


T2=T23 

54 


P2=P23 

55 


T4=T43 

56 


CALL STG (1) 

57 


RETURN 

58 


END 

59 


SIBFTC COINLT DECK 

SUBRDJTINE COINLT 1 

COMMON / ALL/ 2 

1 WORD » IDES » JDES , KDES « MODE *XNXT *IQUMP * I AMTP f 3 

2 IGASM< t IDBURNt I AFTBN f I DCD t IMCD » IDSHOC* I MSHGC , NOZFLT, 4 

3ITRYS 9 LOOPER , NOMAP * NUMMAPy MAPEDG* TOLALL 9 ERR { 6) 5 

COMMON /DESIGN/ 6 

X PCNFGJ * PCNCGIU T 4GU , DUMD1 ? DUMD2 « DE'LFG $ DELFN 9 DELSFC 9 7 

2ZFOS ,PCNFDS*PRFDS 9 ETAFDS, WAFDS f PRFCF 9 ETAFCF 9 WAFCF « 8 

3ZCDS 9 PCNCDS, PRCDS 9 ETACDS, WACDS ? PRCCF f ETACCF » WACCF » 9 

4T4DS 9 WFBDS f DTCODS * ETABDS , WA3CDS 5 DPCQDSy DTCOCF f ETABCF* 10 

5TFHPD$*CNHPDSyETHPDS,TFHPCF,CNHPCFyeTHPCFy0HHPCF*T2DS , 11 

6 TFLPDS 9 CNLPDSt ETLPDS t TFLPCF* CNLPCF, ETLPCF* DHLPCF*T21DS 9 12 

7T24DS 9 WFDDS 9 DTDUDS « ETADDS, WA230$t OPDUDSy DTDUCF * ETADCF? 13 

8T7DS f WF ADS 9 DTAFDS * ETAADS* WG 6 CDS 9 DP AFDS* DT AFCF * ETAACF 9 14 

9A55 ,A25 t A6 *A7 *A8 *49 *428 *A29 * 15 

$PS55 *AM55 9 CVDNOZ f CVMNOZ^ A8SAW *A9SAV « A28SAV 9 A29SAV 15 

COMMON / FRONT/ 17 

1T1 tPl 9 HI t SI ? T2 »P2 *H2 » S2 9 18 

2T21 *P21 f H21 *S2l *T3 *P3 *H3 ,S3 9 19 

3T4 *P4 * H4 » S4 *T5 *P5 *H5 *S5 9 20 

4T55 t P55 9 H55 ,S55 * 8 LF * BLC *BLDU 9 BLOB 9 21 

5CNF « PRF 9 ETAF ,WAFC y WAF , ^A3 ,aG4 ,FAR4 9 22 

6 CNC 9 PRC 9 ETAC *WACC f WAC * ETAB , DPCOM 9 DUMP » 23 

,7CNHP 9 ET ATHPt DHTCHP * DHTC * BLHP *WG5 « F AR5 t CS 9 24 

8 CNLP 9 ET ATLPy DHTCLP 9 DHTF * BLLP *WG55 ,FAR55 yHPEXT * 25 

9AM f ALTP 9 ETAR «ZF f PCNF *ZC *PCNC ,WFB * 26 

STFFHP *?FFtP 9 PCBLF yPCBLC y PCBLDUy PCBLOBy PCBLHP, PC 8 LLP 27 

COMMON /S f DE/ ZYX C 48 ) / B ACK/YZX C 721 28 

COMMON /DUMMYS/ DUMMY! 100 1 29 

DATA 4WORD/6HCOXNLT / 30 

WORD=MORD 31 

AJ = 773 » 26 32 

G=32 » 1 74049 33 

ALT=ALTPs2 e 085553i£*07/C 2*0855531E*0?-ALTP) 34 

CALL ATMOS i ALT* Tl, XXI f XX2, XX3* P1*CS*XX4, IIEIU 35 

IF f I AMTP « EQ ® 2 1 T1=T1*T2 36 

IF ( I AMTP • £Q» 5 ) CALL RAM 2 ! AM 9 ETAR I 37 

IF ( IAMTP*NE* 1* AND* l AMTP *ME# 5 ) CALL RAM I AM f ETAR 2 38 

FAR=0»D 39 

CALL 5 ROCOM C FARyTly CS*XX2*XX3,R1 9 PHI lyHl) 40 

51= PHI I ~R 1#ALQG I P 1 1 41 

H2*H1M AM#CS 1**2/(2.«AJ«G) 42 
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P2T=1. 43 

DO 1 1*1, 10 44 

CALL THERMO (P2T»H2,T2T»S2T,AW,0»0.0»1) 45 

IF ( A3S ( S2T-S1 ) ,LE»0,0001*S1 ) SO TO 2 46 

1 P2T*P1*EXP( (AW/ 1.986375 )*( (S2T-Sl)+( 1.986375/AW) *AL0G(P2T/P1 ) ) ) 47 

CALL ERROR 48 

RETURN 49 

2 IF ( I4MTP.EQ.3.DR.IAMTP.EQ.4) ETAR=P2/P2T 50 

P2=ETAR*P2T 51 

IF ( IAMTP.NE.4) CALL THERMO (P2,H2,T2,S2,XX5,0,0.0,1 ) 52 

IF ( IAMTP.EQ.4) CALL THERMO (P2,H2,T2,S2,XX5,0,0.0,0) 53 

IF ( INIT.EO.l) GO TO 5 54 

IF (IDES.EQ.l) GO TO 3 55 

IF (MODE. EO. 3) GO TO 4 56 

PCNF=3 JESS ( MODE, T4, T4DS, PCNC , PCNCDS, WFB, WFBDS, T2 , T2DS, PCNFDS > 57 

PCNFGU=PCNF 58 

GO TO 4 59 

3 PCNF=PCNFDS 60 

PCNFGU-PCNF 61 

T2DS=T2 62 

ZF=ZFDS 63 

RETURN 64 

END 65 


TC ATMOS DECK 

SUBROUTINE ATMOS (ZFT, TM, SIGMA, RHO, THETA, DELTA, CA, AMU, K) 1 

THIS IS A SUBROUTINE TO COMPUTE CERTAIN ELEMENTS OF THE 1962 2 

U.S. STANDARD ATMOSPHERE UP TO 90 KILOMETERS. 3 

CALLING SEQUENCE... 4 

5 

CALL ATMOS (ZFT, TM, SIGMA, RHO, THETA, DELTA, CA, AMU, K) 6 

ZFT = GEOMETRIC ALTITUDE (FEET) 7 

TM « MOLECULAR SCALE TEMPERATURE (DEGREES RANKINE) 8 

SIGMA = RATIO OF DENSITY TO THAT AT SEA LEVEL 9 

RHO = DENSITY (LB-SEC**2-FT**(-4) OR SLUGS-FT**3) 10 

THETA = RATIO OF TEMPERATURE TO THAT AT SEA LEVEL 11 

DELTA = RATIO OF PRESSURE TO THAT AT SEA LEVEL 12 

CA = SPEED OF SOUND (FT/SEC) 13 

AM J = VISCOSITY COEFFICIENT ( LB-SEC/FT**2) 14 

15 

K = 1 NORMAL 16 

= 2 ALTITUDE LESS THAN -5000 METERS OR GREATER THAN 90 KM 17 

= 3 FLOATING POINT OVERFLOW 18 

19 

ALL DATA AND FUNDAMENTAL CONSTANTS ARE IN THE METRIC SYSTEM AS 20 

THESE QUANTITIES ARE DEFINED AS EXACT IN THIS SYSTEM. 21 

22 

THE RADIUS OF THE EARTH (REFT59) IS THE VALUE ASSOCIATED WITH THE 23 

1959 ARDC ATMOSPHERE SO THAT PROGRAMS CURRENTLY USING THE LIBRARY 24 

ROUTINE WILL NOT REQUIRE ALTERATION TO USE THIS ROUTINE. 25 

DIMENSION HB(10),TMB(10),DELTAB(10),ALM(10) 26 

DATAHB(I), TMB(I), DELTAB1 1 ) , ALM( I ) , I =1 , 10) / 27 

1 -5.0, 320.65, 1.75363E 00, -6.5, 28 

2 0.0, 288.15, l.OOOOOE 00, -6.5, 29 

3 11.0, 216.65, 2.23361E-01 , 0.0, 30 

4 20.0, 216.65, 5.40328E-02, 1.0, 31 

5 32.0, 228.65, 8.56663E-03, 2.8, 32 

6 47.0, 270.65, 1.09455E-03, 0.0, 33 
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7 52.3, 270.65, 5 .82289E-04, -2.0, 3 4 

8 61.3, 252.65, 1.79718E-04, -4.0* 35 

9 79.0, 180.65, 1.0241 E-05, 0.0, 36 

% 88.743, 180.65* 1.6223 E-06, 0.0/ 37 

DATA REFT59/2.0855531E 07/, GZ /9. 80665/, 38 

1 AMZ /28» 9644 /, RSTAR /8. 31432/, 39 

2 FTT0KM/3. 048E-04 /, S /110.4 /, 40 

3 AMUZ /1.2024E-05 /, CAZ /1116.45/, 41 

4 RHOZ /O. 076474 /, GZENG /32.1741/ 42 

C CONVERT GEOMETRIC ALTITUDE TO GEOPDTENTI AL ALTITUDE 43 

HFT=(REFT59/ ( REF T 59+ Z FT ) )*ZFT 44 

C CONVERT -!FT AND ZFT TO KILOMETERS 45 

Z=FT?OKM*ZFT 46 

H=FTTOKM*HFT 47 

K=1 48 

TMZ=TMB 1 2 I 49 

IF 1H.LT.-5.0.0R.Z.GT.90.0) GO TO 7 50 

DO 1 M«l, 10 51 

IF IH-HBIM) ) 2,3,1 52 

1 CONTINUE 53 

GO TO 7 54 

2 M=M-1 55 

3 DELH=-I~HB 1 M ) 56 

IF 1AIM1M).EQ.0.0) GO TO 4 57 

TMK=TNB 1 M )+ALMl M ) *OELH 58 

C GRADIENT IS NON ZERO, PAGE 10, EQUATION I. 2. 10-13) 59 

DELTA® 0ELTAB(M)*11TMB(M)/TMK)**IGZ*AMZ/1 RSTAR* ALM 1 Ml) ) ) 60 

GO TO 5 61 

4 TMK=TMB(M ) 62 

C GRADIENT IS ZERO, PAGE 10, EQUATION 1.2.10-14) 63 

DELTA® DELTAB(M)*EXP<-GZ*AMZ*DELH/(RSTAR*TMB(M) ) ) 64 

5 THETA® TMK/TMZ 65 

SIGMA® DELTA/THETA 66 

ALPHA«SQRTITHETA**3)*< 1 TMZ«-S > / 1 TMK + S ) ) 67 

C CONVERSION TO ENGLISH UNITS 68 

TM=1.B*TMK 69 

RHO=R -I OZ* SIGMA/ GZENG 70 

CA»CAZ*SQRT{THETA) 71 

AMU® AMUZ* ALPHA/ GZENG 72 

CALL 3VERFL (J) 73 

GO TO 16, 8), J 74 

6 K=K+2 75 

GO TO 8 76 

7 K=2 77 

8 RETURN 78 

END 79 


SIBFTC RAMS DECK 

SUBROUTINE RAM 1 AM,ETAR ) 1 

IF (AM.GT.l. ) GO TO 2 2 

ET AR=1 . 3 

1 RETURN 4 

2 IF l AM.GT.5. I GO TO 3 5 

ETAR=1 .-0.075*1 ( AM- l . )** 1.35) 6 

GO TO 1 7 

3 ET AR = 3 00. / ( 1 AM**4)+935. ) 8 

GO TO 1 9 

END 10 
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$ I BFTC RAMTWO DECK 

SUBROUTINE RAM2 ( AM, ETAR ) 1 

DIMEMSION PR I NLT ( 15 ) , FMN ( 15 ) 2 

DIMENSION Y( 3) »X ( 3) 3 

DATA FMN/0.,.1».2*.3».4,.5,.8»1.1»1.2»1.4,1.6»1.8*2.2»2.4«2.7/ 4 

DATA 3 RINLT/ .9* .932* .95* .961 , . 968, . 97, . 9701, . 97 * . 9681 * . 958, . 94 , 5 

1.9181, .858* .8201, .75/ 6 

M=0 7 

DO 1 J =1* 15 8 

1 IF (AM. GE.FMNt J ) ) M=J-1 9 

IF (M.EQ.O) M= 1 ID 

IF (M.GE.14I M=1 3 11 

DO 2 1*1,3 12 

MM=M-l ♦ I 13 

X ( I ) =F MN( MM ) 14 

2 Y( I ) =PRINLT (MM) 15 

CALL ? ARABO ( X, Y , AM, ETAR ) 16 

RETURN 17 

END 18 


$ I BFTC COFAN DECK 

SUBROJ TINE COFAN 1 

COMMON / ALL/ 2 

1W0RD .IDES , JDES , KDES .MODE ,INIT ,IDUMP ,IAMTP , 3 

2IGASMX, IDBURN, IAFTBN, IOCD , IMCD , IDSHOC, IMSHOC, NOZFLT, 4 

3ITRYS .LOOPER, NOMAP * NUMMAP ,MAPEDG*T0LALL»ERR(6) 5 

COMMON /DESIGN/ 6 

1 PCNFGJ , PCNCGU, T 4GU ,DUMD1 ,DUMD2 ,OELFS , DELFN .DELSFC, 7 

2ZFDS , PCNFDS , PRFDS , ETAFDS, WAFDS , PRFCF , ETAFCF , WAFCF , 8 

3ZCDS » PCNCDS, P RCDS , ETACDS, WACDS ,PRCCF , ETACCF » WACCF , 9 

4T4DS » WFBDS , DTCODS , ETABDS, WA3CDS, DPCOQS, DTCOCF » E TABCF, 10 

5TFHPDS.CNHPDS, ETHPDS , TFHPCF, CNHPCF , ETHPCF , DHHPCF , T2DS , 11 

6TFLPDS,CNLPDS»ETLPDS,TFLPCF,CNLPCF,ETLPCF,0HLPCF,T21DS , 12 

7T24DS , WFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , E TADCF , 13 

8T7DS , WF ADS , DT AFDS , ETA ADS, WG6CDS, DP AFDS, DTAFCF , ETAACF , 14 

9A55 , A25 ,A6 ,A7 ,A8 ,A9 ,A28 ,A29 , 15 

$PS55 , AM55 »CVDN0Z»CVMN0Z»A8SAV »A9SAV » A28SAV* A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 , HI ,S1 ,T2 ,P2 ,H2 ,S2 , 18 

2T21 , P21 ,H21 ,S21 ,T3 ,P3 ,H3 ,S3 , 19 

3T4 ,P4 * H4 , S4 ,T5 ,P5 ,H5 ,S5 , 20 

4T55 , P55 » H55 ,S55 » BLF ,BLC , BLDU , BLOB , 21 

5CNF , PRF , ETAF , WAFC , WAF ,WA3 ,WG4 ,FAR4 , 22 

6CNC , PRC , ET AC ,WACC ,WAC , ET AB ,DPCOM , DUMP , 23 

7CNHP , ETATHP , DHTCHP , DHT C , BLHP ,WG5 * FAR5 ,CS , 24 

8CNLP .ETATLPjDHTCLP, DHTF , BLLP ,NG55 ,FAR55 ,HPEXT * 25 

9AM , ALTP .ETAR ,ZF ,PCNF ,ZC ,PCNC ,WFB , 26 

$TFFHP , TFFLP ,PCBLF , PCBLC , PCBLDU, PCBLOB, PCBLHP , PCBLLP 27 

COMMON/ S I DE/ZYX{48)/ B ACK/YZX ( 72 > 2 8 

COMMON /DUMMYS/DUMMY( 100) 29 

COMMON / FAN/CNX(15) ,PRX( 15, 15) , W ACX ( 15, 15 ) , ETAX ( 15 , 15 ) , 30 

1NCN, NPT ( 15 ) 31 

DIMENSION WLH( 2 ) 32 

DATA ArfORD,WLH/6H COFAN, 6H (LO) ,6H (HI ) / 33 

WORD* AriORD 34 

THETA* SORT (T2/518.668) 35 

IF ( I3ES.EQ.1) THETAD=THETA 36 
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CNF=PCMF*THETAD/( 100.*THETA) 37 

IF ( IOES.EQ. 1) WAFDS=WAFC*P2/THETA 38 

IF (ZF.LT.O. ) ZF=0. 39 

IF CZF.GT.I.) ZF = 1 . AO 

CNFS=CNF A I 

CALL SEARCH ( ZF, CNF, PRF, WAFC , ETAF, C NX (1) , NCN ,PRX ( 1 , 1 ) , WACXl l , 1 1 , E T A2 

1AX( 1,1 ),NPT(1) ,15,15, IGO) A3 

IF l(CNF-CNFS).GT.0.0005*CNF) MAPED3=1 AA 

IF II30.EQ.1.0R.IGO.EQ.2) WRITE (8,11) CNFS.WLHI IGO) A5 

WAF=WAFC*P2/ THETA A6 

IF ( IDES.NE. 1) GO TO 1 A7 

PRFCFMPRFDS-1. )/IPRF-l. ) A8 

ETAFCF=ETAFDS/£TAF A9 

WAFCF=WAFDS/WAF 50 

WRITE (6,12) PRFCF, E T AFCF, WAFCF , T20S 51 

1 PRF=PRFCF*(PRF-1. >+l. 52 

ETAF=ETAFCF»ETAF 53 

WAF=WAFCF*WAF 5A 

WAFC=W AFCF*WAFC 55 

PCNF = 1 00. *THET A*CNF/THETAD 55 

DUHD1 = PCNF 57 

CALL THCOMP ( PRF,ETAF,T2,H2, S2,P2,T2l,H21,S21 ,P21) 58 

IF (P:bLF.GT.O. ) BLF=PCBLF*WAF 59 

IF ( JOES. EQ. 1) GO TO 8 60 

JD£S=1 61 

IF ( INIT.EQ.l) GO TO 7 62 

IF (IOES.EO.1) GO TO 5 63 

IF (H00E.NE.2) GO TO 2 6A 

T4*GU5 SS( 3,Yl,Y2fPCNF»PCNFDS»WFB,WFBDS,Y7,Y8*T4DS) 65 

PCNC=3JESS14,Y1, Y2» PCNF, PCNFDS, WFB, WFBDS, Y7 , Y8 , PCNCDS) 65 

GO TO 6 67 

2 IF ( MODE* EQ. 1 ) GO TO 4 68 

IF (MOOE.EQ.O) GO TO 3 69 

T4=GL)ESSf 7»Yl,Y2,PCNF»PCNFDS f Y5, Y6, T2, T2DS, T4DS ) 70 

3 PCNC=SJESS(5,T4,T4DS,Y3, Y4, Y5, Y6, T21 , T210S , PCNCDS > 71 

GO TO 6 72 

4 T4=GUESS(6,Y1,Y2,PCNC, PCNCDS, Y5, Y6» T21, T21DS, TADS) 73 

GO TO 5 7 A 

5 pcnc=pcncds 75 

T4=T43S ?6 

WFB=WF BOS 77 

T210S=T21 7B 

6 ZC=ZCOS 79 

PCNCGL) = PCNC 80 

T4GU = T A 81 

INI T=0 82 

IF (M00E.NE.3) GO TO 9 83 

IF (ABS(CNF-CNFS) .LE.0.001*CNFS) GO TO 10 8A 

WRITE 18,13) CNFS.CNF 85 

CALL ERROR 86 

PCNF=1 00. *THETA*CNF/ THET AD 87 

0 CALL C OCOMP 88 

RETURM 89 

90 

91 

1 FORMAT I19H0* * * CNF OFF M AP , F 10. 4, 2XA6, 1 1H» * *$$$$$$> 92 

12 FORMAT ( 11H0FAN DESIGN, 13X8H PRFCF=,E15. 8, 8H ETAFCF=»E15.8»8H WA 93 

1FCF= , E 1 5. 8, 8H T20S=,E15.8) 94 

13 FORMAT (10H0CNF WAS* ,E15.8,11H AND NOW= ,E15.8,2AH CHECK PCNF I 95 

INPUT $$$$$$ ) 96 

END 97 
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SIBFTC COCOMP DECK 

SUBROUTINE CDCOMP 1 

COMMON / ALL/ 2 

1WORD , IDES , JDES ,KDES .MODE ,INIT . IDUMP .IAMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD »IMCD » I DSHOC , I MSHOC , NOZFLT, 4 

3ITRYS .LOOPER.NQMAP , NUMMAP, MAPEDG. TOLALL, ERR! 6) 5 

COMMO'i /DESIGN/ 6 

1PCNFGJ.PCNCGU.T4GU , DUMDI , DUMD2 . DELFG , DELFN .DELSFC. 7 

2ZFDS . PCNFDS, PRFDS » ETAFDS, WAFDS » PRFCF .ETAFCF.WAFCF » 8 

3ZCDS » PCNCDS » PRCOS , ETACDS , WACDS « PRCGF , ETACCF , WACCF » 9 

4T4DS i WFBDS , DTCODS » ETABDS » WA3CDS , DPCODS, DTCOCF , ETABCF , ID 

5TFHPDS.CNHPDS.ETHPDS.TFHPCF.CNHPCF. ETHPCF, DHHPCF » T2DS » II 

6TFLPDS,CNLPDS»ETLPDS,TFLPCF,CNLPCF»ETLPCF,DHLPCF,T21DS » 12 

7T24DS » WFDDS , DTDUDS, ETADDS, WA23DS.DPDUDS, DTDUCF,ETADCF» 13 

8T7DS , WF ADS » DT AFDS » ETAADS , WG6CDS, DPAFDS , DTAFCF , ETAACF, 14 

9 A55 ,A25 ,A6 , A7 , A8 »A9 ,A28 »A29 » 15 

$PS55 , AM55 . CVDNOZ »CVMN3Z,A8SAV , A9SAV , A28SAV, A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 .HI ,S1 ,T2 ,P2 . H2 »S2 , 18 

2T21 , P2 1 « H21 . S21 »T3 .P3 ,H3 .S3 , 19 

3T4 ,P4 »H4 ,S4 ,T5 ,P5 ,H5 , S5 . 20 

4T55 . P55 » H55 , S55 , BLF ,BLC . BLDU .BLOB . 21 

5CNF . PRF . ETAF , WAFC »WAF , WA3 ,MG4 »FAR4 . 22 

6CNC « PRC « ET AC »WACC , WAC .ETAB .OPCOM ,DUMF , 23 

7CNHP . ETATHP. DHTCHP . DHTC » BLHP ,WG5 . F AR5 »CS » 24 

8CNLP * ET ATLP. OHTCLP » OHTF . BLLP »WG55 »FAR55 .HPEXT . 25 

9AM . ALTP . ET AR ,ZF , PCNF ,ZC ,PCNC . WFB , 26 

$TFFHP . TFFLP . PCBLF , PCBLC .PCBLDU.PCBLOB.PCBLHP.PCBLLP 27 

COMMON/S IDE/ZYX! 48 >/BACK/YZX( 72) 28 

COMMON /DUMMYS/ DUMMY! 100) 29 

LOGICAL ERRER. FAN 30 

EQUIVALENCE (FAN, DUMMY! 11) ), ( I SPOOL, DUMMY! 6) ) 31 

COMMON / COMP/CNX! 15 ) »PRX! 15, 15) ,WACX! 15,15) ,ETAX( 15,15) , 32 

1NCN , NP T 1 1 5 ) 33 

DIMENSION WLHI2) 34 

DATA 4d0RD,WLH/6HC0C0MP»6H !L0) , 6H (HI) / 35 

WORD=AWORD 36 

THETA=SQRT (T21/518.668) 37 

IF ( IDES.EQ.l) THETAD=THET A 38 

CNC=p:nC*THETAD/( 100,»THETA) 39 

IF ( . MOT. FAN ) WACC= (WAF-BLF)»THETA/P21 40 

IF ( IOES.EQ.l) WACDS = WACC»P2 1/THETA 41 

IF (ZC.LT.O. ) ZC=0. 42 

IF (ZO.GT.l.l ZC=i. 43 

cncs=:nc 44 

IF (ISPOOL.EQ.il GO TO 1 45 

CALL SEARCH (ZC.CNC, PRC, WACC , ETAC, CMX4 1 ) » MCN »PRX( 1 , 1 ) » WACX ( 1 » 1 > » ET 46 

1AX! 1.1 ) ,NPT( 1),15,15, I GO) 47 

GO TO 2 48 

1 PRC=1. 49 

ET AC = 1 « 50 

CNC=1. 51 

PRCCF= 1 . 52 

2 CONTINUE 53 

IF ( MODE. EQ» 1 ) GO TO 3 54 

IF ( (;nC-CNCSI.GT.0.0005#CNC) MAP£DG=1 55 

3 IF ( ISO.EQ. l.OR. IG0.EQ.2 ) WRITE ! 8, 7) CNCS.WLHIIGO) 56 

WAC=WACC*P2i/THETA 57 

IF ( IDES.NE. 1) GO TO 4 58 

IF ( 1SP00L.EQ. 2) PRCCF=! PRCDS-1. I/(PRC-1, ) 59 

ETACCF=ETACDS/ETAC 60 

IF (ISPOOL.EQ.il ET ACCF= 1. 0 61 
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WACCF^ACD$/WAC 62 

WRITE (6.8) PRCCF $ ET ACCF ? WACCF f T21DS 63 

4 PRC = PR CCF» ( PRC**1 ® ) -3“! ® 64 

ETAC=ETACCF*ETAC 65 

WAC=WACCF*WAC 66 

WACOWACCF*WACC 67 

IF ( ® NDT • FAN ) ERR (51=1 WAF-WAC-BLF I / WAC 68 

CALL fHCOMP (PRC* ETAC*T2UH21*S21*P21*T3*H3 9 S3.P3) 69 

IF ( PS BLC *GT ® 0* ) BLu = PCBLC*WAC 70 

WA3=WAC-BLC 71 

BLDUsp CBL DU*BLC 72 

blob=pcblob*blc 73 

BLHP=?CBLHP*BLC 74 

BLLP=P CBLLP*BLC 75 

IF ( MODE# NE* 1 ) GO TO 5 76 

IF (ASS ( CNC-CNCS S»LE*Q»001#CNCS) GO TO 6 77 

WRITE (8.9) CNCSf CMC 78 

CALL ERROR 79 

PCNC=l 00* *THETA*CNC/ THET AD 80 

CALL CDCOMB 81 

RETURNS 82 

83 

84 

FORMAT ( 19H0* * * CMC OFF MAP.F10* 4.2XA6. 11H® * »$$$$$$} 85 

FORMAT ( 18H0C0MPRESSQR DESIGN. 6 X 8 H PRCCF=* E15«8 « 8H ETACCF= * E15* 8* 86 

18H WACCF=,E15*8t 8H T21DS* , E15. 8 ) 87 

9 FORMAT C10H0CNC WAS= *E15*8*11H AMO MOW= *E15*8 f 24H CHECK PCNC I 88 

INPUT $$$$$$ ) 89 

END 90 
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$ I BFTC COCOMB DECK 

SUBROJT I NE COCOMB 1 

COMMON / ALL/ 2 

1 WORD 9 IDES 9 JDES 9 KDES * MODE 9 INIT .IDUMP tIAMTP * 3 

2IGASM* 9 IDBURN. I AFTBN* IDCD » IMCD f IDSHOC * I MSHQCf NOZFLT, 4 

3 ITRYS 9 LOOPER 9 NOMAP * NUMMAP t MAPEDG. TOLALL® ERR ( 6 ) 5 

COMMON /DESIGN/ 5 

1PCNFGJ. PCNCGU.T4GU • DUMD1 9 DUMD2 9 OELFG 9 DELFN 9 DELSFC 9 7 

2ZFDS 9 PCNFDSj PRFDS 9 ETAFDS. WAFOS ,PR FCF t ETAFCF * WAFCF f B 

32CDS 9 PCNCDS 9 PRCDS • ETACDS* WACDS « PRCCF 9 E TACCF * WACCF * 9 

4T4DS f WFBDS 9 OTCODS 9 ETABOS. WA3CDS f DPCODS* DTCOCF f ETABCF* 10 

5TFHPDS t CNHPDSt ETHPDS 9 TFHPCF. CNHPCF* ETHPCF* DHHPCF 9 T20S 9 11 

6 TFLPDS 9 CNLPDS 9 ETLPDS 9 TFLPCF* CNLPCF* ETLPCF* DHLPCF 9 T2 IDS 9 12 

7T24DS t WFDDS f DTDUDS * ETADDS* WA23DS* DPDUDS* QTDUCF t ETADCF * 13 

8T7DS t WF ADS 9 DTAFDS , ETAAOSt WG 6 CDS* DPAFDS* DTAFCF 9 ETA ACF f 14 


9A55 

,A25 

9 A 6 9 A7 

9 A 8 

» A9 

« A28 

9 A29 

9 

15 

$PS55 

t AM55 

t CVDNOZ 9 CVMNOZ 

9 A 8 SAV 

, A9SAV 

t A28SAV 

t A29SAV 


16 

COMMON 

/ FRONT/ 






17 

1T1 

t PI 

9 HI f Si 

9 T2 

»P2 

9 H2 

9 S2 


18 

2T21 

.P21 

t H21 ? S21 

t T3 

» P3 

t H3 

9 S3 


19 

3T4 

9 P4 

y H4 9 S4 

t T5 

»P5 

»H5 

»S5 

t 

20 

4T55 

9 P55 

9 H55 *S55 

. BLF 

» BLC 

,BLDU 

9 BLOB 

9 

21 

5CNF 

*PRF 

t ET AF . WAFC 

9 WAF 

» WA3 

» WG4 

9 FAR 4 

9 

22 

6 CNC 

? PRC 

9 ET AC t W ACC 

t WAC 

»ETAB 

t DPCQM 

9 OUMF 

9 

23 

7CNHP 

f ETATHP 

9 DHTCHP 9 DHTC 

9 BLHP 

s WG5 

,FAR5 

.CS 

V 

24 

8 CNLP 

9 ET ATLP 

9 DHTCLP 9 DHTF 

9 BLLP 

s4G55 

,FAR55 

9 H PE XT 

9 

25 

9 AM 

9 ALTP 

t ETAR . ZF 

t PCNF 

»zc 

9 PCNC 

tWFB 

9 

26 
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STFFHP , TFFLP S PCBLF ,PCBLC , PCBLDU, PCBLOB, PCBLHP , PCBLLP 27 

COMMON /SI 0E/ZYXI48 ) / B ACK/YZX ( 72 ) 28 

COMMDN/DUMMYS/DIMMY( 100) 29 

LOGICAL ERRER, FAN 30 

EQUIVALENCE ( FAN ,DIMMY( 1 1) ) , ( I SPOOL, DI MMY( 6) I 31 

COMMON / C0MB/PSH15 ),DELT( 15,15),ETA(15,15) ,NPS,NPT(15) 32 

DIMENSION 0(9) , DUMBO ( 15, 15) 33 

DATA AW0RD/6HC0C0MB/ 34 

WORD= AWORD 35 

Q ( 2 ) =3 . 35 

Q(3)=3. 37 

P3PSI=14®696«P3 38 

WA3C=WA3*SQRT(T3)/P3PSI 39 

IF ( IDES.EQ.l) WA3CDS=WA 3C 40 

DPCOM*DPCODS»( WA3C/WA3CDS) 41 

IF (DPCOM.GT.l. ) DPC0M=1. 42 

P4=P3»( l.-DPCOM) 43 

1 IF ( T4.GT.4000. ) T4=4000. 44 

IF (T4.GE.1000. ) GO TO 2 45 

T4=1030. 46 

IF (M30E.EQ.1) MAPEDG=1 47 

2 DTCO=T 4-T3 48 

IF (I3ES.NE.1) GO TO 3 49 

DTCQDS=DT CO 50 

DTCOCF =DTCOOS/DTCQ 51 

3 DTCO=DTCOCF*DTCQ 52 

P3PSIN=P3PSI 53 

CALL SEARCH { -1. » P3PS IN, DTCO, ETAB » DUMMY, PSI ( 1 ) ,NPS,DELT( 1 , 1 ) ,ETA ( 1 54 

1,1) ,DJMBO( 1,1) ,NPT(1>» 15,15, I GO) 55 

IF (130, EQ, 7) CALL ERROR 55 

IF (IOES.NE.l) GO TO 4 57 

£TABCF=£T ABDS/ETAB 58 

4 ETAB*ETABCF*ETAB 59 

HV =(({((( -» 45943 17 E-19*T 4)-, 2034116E— 15 ) *T 4+, 2783643E-11 )*T4+.2051 60 

1501E-37 ) *T 4-. 2453116E-03 )*T4-»9433296E-01)*T4+.1845537E+05 61 

CALL THERMO ( P4, HA, T4, XX 1,XX2, 0, 0. 0, 0) 62 

FAR4=( HA-H3 ) / ( HV*ETAB 5 53 

IF (FAR4.LT.0. ) FAR4=0, 64 

WFBX = F AR4*WA3 65 

IF (M00E.NE.2) GO TO 7 66 

ERRW*( WFB-WFBX)/WFB 67 

DIR=S3RT(WFB/WFBX) 68 

CALL AFQUIR ( Q( 1 ) , T4» ERRW, 0. ,20. , 0.0001 , DI R,T4T, IGO ) 69 

GO TO (5,8,6), IGO 70 

5 T4=T4T 71 

GO TO 1 72 

6 CALL ERROR 73 

7 WFB=WF BX 74 

8 CALL THERMO ( P4,H4* T4, S4, XX2, 1 , FAR4, 0 ) 75 

WG4=WF8+WA3 76 

IF ( I3ES.EQ.1) WRITE (6,10) WA3CDS, ETABCF , DTCOCF 77 

IF (ISPOOL.EQ.l) GO TO 9 78 

CALL COHPTB 79 

RETURN 80 

9 FAR5=F AR4 81 

T5=T4 82 

WG5=WG4 83 

S5=S4 84 

H5=H4 85 

P5=P4 86 

ETATH’=1. 87 

CNHP=i . 88 
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DHHPCF = io 89 

ETHPCF =1« 90 

TFHPCF = I o 91 

THHC AL *0. 92 

DHTCHP=0„ 93 

DHTC = 3 » 94 

CALL Z 3LPTB 95 

RETURN 96 

C 9? 

10 FORMAT ( 1 7H0CQMBUSTER DESIGN, 7X8H WA3CDS=, Ei5» 8»8H ETABCF = « El 5« 8,8 98 

1H DTC0CF= » El 5» 8 ) 99 

END 100 


SIBFTC COHPTB DECK 

SUBRDJTINE COHPTB 1 

COMMON / ALL/ 2 

1WORD , IDES « JOES ,KDES , MODE , INfT ,IDUMP ,IAMTP , 3 

2IGASMX, IDBURN, IAFTBN, IDCD „ IMCD , IDSHOC, IMSHOC,NOZFLT» A 

3ITRYS ,L0DPER, NOMAP , NUMMAP, MAPEDG , TOLALL, ERR { 6 ) 5 

COMMON /DESIGN/ 6 

1PCNF6J,PCNCGU,T4GU , DUMDi ,DUMD2 , DELFG , DELFN ,DELSFC, 7 

2ZFDS ,PCNFDS,PRFOS , ETAFDS » WAFDS ,PRFCF , ETAFCF , WAFCF » 8 

3ZCDS 9 PCNCDS , PRCDS , ETACDS, WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS » WA3CDS, DPCODS, DTCOCF, ETABCF , 10 

5TFHPDS , CNHPDS , ETHPDS , TFHPCF, CNHPCF , ETHPCF, DHHPCF , T2QS , 11 

6TFLPDS , CNLPDS, ETLPDS »TFLPCF,CNLPCF,ETLPCF, DHLPCF, T21DS , 12 

7T24DS , WFDDS , DTDUDS , ETADDS, WA23DS , DPDUDS, DTDUCF , ETADCF , 13 

8T7DS « WF ADS , DT AFDS » ETAADS, WG6CDS , DP AFDS, DTAFCF , ETAACF, 14 

9A55 »A25 ,A6 , A7 ,A8 ,A9 ,A28 ,A29 , 15 

3-PS55 , AM55 ,CVDNOZ , CVMNOZ , A8S AV ,A9SAV * A28SAV, A29SAV 16 

COMMON / FRONT/ 17 

1T1 ,P1 » HI tSl ,T2 ,P2 ® H2 »S2 » 18 

2T21 , P2 1 ,H21 , S21 , T3 ,P3 ? H3 ,S3 > 19 

3T4 ,P 4 , H4 ,S4 »T5 ,P5 ,H5 ,S5 , 20 

4T55 9 P55 , H55 ,S55 , BLF ,BLC » BLDU 9 BLOB , 21 

5CNF « PRF tETAF ,WAFC ,WAF ,WA3 tWG4 ,FAR4 , 22 

6CNC » PRC , ET AC ,WACC ,WAC , ETAB ,DPCOM , DUMP , 23 

7CNHP 9 ET ATHP, DHTCHP 9 DHT C * BLHP , WG5 ,FAR5 ,CS * 2 4 

8CNLP »ETATLP,DHTCLP,DHTF , BLLP ,W655 ,FAR55 ,HPEXT , 25 

9AM , ALTP , ET AR ,ZF ,PCNF ,£C ,PCNC ,WF8 , 26 

STFFHP , TFFLP , PCBLF ,PCBLC ,PCBLDU,PCBLOB®PCBLHP,PCBLLP 27 

COMMDN/S I OE/ QXQ { 48 1 / BACK/QWQ 1721 2 8 

COMMON/DUMMYS/DUMMYt 100) 29 

EQUIVALENCE (TFFACT,DUMMY 1 12) ) * 1 CNAC T, DUMMY ( 13 1 ) 9 ( DHC ACT, DUMMY (14) ) 30 

COMMON/TERBHI/DHHISV,TFHISV,CNHISV,ETHISV,DHHPDS 31 

COMMON /HTURB/TFFX{15),CNX(15 9 15),DHTCXU5,15),ETATX(15,15) , 32 

1NTFFS,NPTTFF< 15) 33 

DATA A WORD, WLO, WHI/6HCQHPTB, 6H 1L0) » 6H {HI) / 34 

WORD=AWORD 35 

IF ( IDES.EQ.O) GO TO 1 36 

CNHPCF*CNHPDS*SQRHT4)/PCNC 37 

1 CNHP«;nHPCF»PCNC/SQRT(T4) 38 

CNHPS = CNHP 39 

TFFHPS =TFFHP 40 

CALL SEARCH { ~l. , TFFHP , CNHP, DHTCHP, ETATHP, TFFX U) » NTFFS. CNX ( 1 , 1 ) ,D 41 

1HTCX(1»1),ETATX(1,1) .NPTTFFl 1 ) 9 1 5, 15 9 IGO ) 42 

IF UGO.EQ.l.OR.TGO.EQoll.OR.IGO'EQ.ai) WRITE {8,85 TFFHPS, WL3 63 

IF ( IG0.EQ.2o0R. IG0.EQ.12.0R. IG0.EQ.22) WRITE (8,8) TFFHPS, WHI 44 
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IF US3.EQ.IO.OR.IG3.EO.11.OR.IGO.EQ. 12) WRITE 18,9) CNHPS.WLO 45 

IF ( ISO. EQ. 20. OR. I GO. EG. 21. OR. IG0.EQ.22) WRITE I 8, 9 > CNHPS.WHI 46 

IF ( ISO.NE. 7 ) GO TO 2 4? 

CALL ERROR 48 

RETURN 49 

2 MAPGO* 0 50 

IF ( ABS ( TFFHPS-TFFHP ) .LE.0.001*TFFHPS) GO TO 3 51 

MAPGO= 1 52 

IF (ABS(CNHPS-CNHP).GT .0 .OOL*CNHPS ) MAPS0*3 53 

GO TO 4 54 

3 IF ( ABS (CNHPS-CNHP).GT. 0.001 *CNHPS> MAPG0*2 55 

4 IF ( MAPGO.GT .0 ) CALL MAPBAC ( l,HAPG3,TFFHPS,TFFHP,CNHPS,CNrIP,PCMC, 55 

1T4* MODE. NOMAP* NUMMAP ) 57 

IF ( N3MAP.6T *0 ) RETURN 5B 

TFHCAL*WG4*SQRT(T4>/( 14.696*P4> 59 

BTUEXT*0.706705*HPEXT 60 

DHTCC* (BTUEXT+WACMH3-H21) )/(WG4*T4) 61 

IF (IDES.EQ.O) GO TO 5 62 

TFHPCF=TFHPDS/TFHCAL 63 

DHHPCF *DHT CC/DHTCHP 64 

ETHPCF=ETHPDS/ETATHP 65 

WRITE (6,10) CNHPCF, TFHPCF, ETHPCF* DHHPCF 66 

5 TFHCAL*TFHPCF*TFHCAL 67 

DHTCHP*DHHPCF*DHTCHP 68 

ETATHP = ETHPCF*ET AT HP 69 

DHTC=0HTCC*T4 70 

TFF AC T=TFHCAL/ TFHPCF 71 

CNACT* CNHP /CNHPCF 72 

DHCACT =DHTCHP/DHHPCF 73 

ERR(l) =(TFHCAL-TFFHP)/TFHCAL 74 

ERR ( 2) * (DHTCC-DHTCHP ) /DHTCC 75 

CALL THTURB 1 DHTC ,ET ATHP ,FAR4,H4, S4*P4,T5»H5,S5,P5) 75 

IF < BLHP.LE.O. ) GO TO 6 77 

FAR5-WFB/ (WA3+BLHP) 78 

WG5=WS4+BLHP 79 

H5= ( BL HP*H3+WG4*H5 ) / WG5 80 

CALL THERMO < P5» H5, T5 ,S5 ,XX2 , 1, F AR5, 1 ) 81 

GO TO 7 82 

6 FAR5=F AR4 83 

WG5=W3 4 84 

7 CALL COLPTB 85 

RETURM 85 

C 87 

C 89 

8 FORMAT (19H0**»**TFFHP OFF MAP, F10. 4, 2XA6»11H* ***•$$$$$$) 89 

9 FORMAT (19H0*«**» CNHP OFF MAP. F10. 4, 2XA6, 1 1H*****$$$$SS ) 90 

10 FORMAT (20H0H.P. TURBINE DESIGN, 5X7HCNHPCF=,E15. 8, 8H TFHPCF* ,E15. 8 91 

1,8H ETHPCF=,E15.8,8H DHHPCF* ,E15. 8 ) 92 

END 93 


SIBFTC COLPTB DECK 

SUBROUTINE COLPTB 
COMMON / ALL/ 

1W0RD , IDES , JDES , KDES , MODE , INIT , I DUMP , IAMTP , 
2IGASMX, IDBURN, IAFTBN, IDCD , IMCO , IDSHOC, IMSHOC, NOZFLT, 
3ITRYS .LOOPER, NOMAP , NUMMAP, MAPEDG, TOLALL, ERR ( 6) 

COMMON /DESIGN/ 

1PCNFGJ,PCNCGU,T4GU , DUMD1 ,DUM02 , DELFG » DELFN , DELSFC , 
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2ZFDS $ PCWFDS § PRFDS $ ETAFDS® WAFDS ? PRFCF 0 ETAFCF * WAFCF * 8 

3ZCDS 3 PCNCOS,PRCDS , ETACDS , WACDS ?PRCCF * ETACCF f HACCF 9 9 

4T4DS t WF80S * DTCOOS » ETABDS, WA3GDS* DPCODS* DTCQCF f ETABCF 9 10 

5TFHPDS 9 CNHPDS* ETHPDS ® TFHPCF? CNHPCF* ETHPCF* DHHPCF * T2DS * 11 

6TFLPD$,CNlPDS 9 ETLPD$*TFlPCF,CNLPCF t ETLPCF*DHLPCF 9 T21DS , 12 

7T24DS ? WFDOS , OTOUDS • ETAQDS? WA23DS* 3PDUDS* OTOUCF f ETADCF , 13 

8T7DS , WFADS 9 OTAFOS , ETA ADS ? WG 6 CDS* DPAFDS? DTAFCF f ETAACF , 14 

9A55 * A25 *A 6 *A7 » A 8 *A9 *A28 ?A29 , 15 

SPS55 9 AH55 9 CVDNOZ 9 CVMN3Z 9 A 8 S AV t A9$AV , A28SAV, A29S AV IS 

COMMON / FROM!/ 17 

ITl »P1 tHl *S 1 *T2 *P2 *H2 *S 2 9 18 

2T2 1 $ P2 1 © H21 *S21 9 T3 *P3 *H 3 *S3 9 19 

3T4 9 P4 *H4 *S4 ,T5 S P5 0 H5 *S5 9 20 

4T55 *P55 9H55 *S55 9 BLF *BLC 9 BLDU ,8L0B 9 21 

5CNF 9 PRF 9 ETAF 9 WAFC ,WAF 9 WA3 *WG4 f FAR4 , 22 

6 CNC 9 PRC 9 ET AC 9 WACC *WAC 9 ETA8 tOPCOM * DUMF 9 23 

7CMHP 9 ET AT HP 9 DHTCHP ® DHTC 9 BLHP ?WG5 9 F AR5 f CS 9 24 

8 CMLP 9 ETATLP 9 DHTCLP 9 OHTF 9 BLLP *WG55 »FAR55 9 HPEXT 9 25 

9 AH f ALTP 9 ET AR *ZF 9 PCNF 9 ZC 9 PCNC 9 WFB 9 26 

STFFHP 9 TFFLP 9 PCBLF 9 PCBLC ? PCBLDU? PCBLQB ? PC81HP 9 PC8LLP 27 

C0MM0M/SIDE/QXQ(48)/BACK/QWQ!72) 28 

C QM MO M/OUMMYS/ DUMMY ( 100) 29 

EQUI VALENCE! TFFACT, DUMMY (15) ) , { CNACT , DUMMY C 16) ) , I DHCACT* DUMMY C 1 7 ) 3 30 

LOGICAL ERRER 9 F AN 31 

EQUIVALENCE (FAN? DUMMY (111 ) * { I SPOOL* DUMMY! 61) 32 

COMMON /TERBLO/ DHL OS V 9 TFLOSV* C.MLOSV 9 ETLOSV* DHLPDS 33 

COMMOM /LTURB/TFFXC15)*CNX( 1 5* 15 > ? DHTCX 1 15* 1 5 1 *ETATX( 15 * 15 ) f 34 

1NTFFS? MPTTFFQ5) 35 

DATA AWORD* WLQ?WHI/6HC0LPTB*6H < LO 1 *6H (HI) / 36 

WORD=AWORD 37 

IF ( IDES? EQ* 0 ) GO TO 1 38 

CNLPCF=CMIPDS*SQRTCT5)/PCNF 39 

1 CNLP=;^LPCF*PCNF/SQRT(T5 ) 40 

CNLPS s CNLP 41 

TFFLPS =TFFLP 42 

CALL SEARCH ( -1* 9 TFFLP *CNLP* OHTCLP 9 ETATLP , TFFX( 1 ) 9 NTFPS* CNX ! 1 »1 ) 9 D 43 

1HTCXI i 9l)fETATX(ltl) tNPTTFFfl) f 15»15 f IGO) 44 

IF ( I30»EQolo0R« I G0» EQ*lleOR«IGQ«EQe21) WRITE (8 ? 10) TFFLPS f WLO 45 

IF ( I30.EQc2*DR.IG0.EQ.12.0R*IG0*EQ*22) WRITE (8*10) TFFLPS*WHI 4S 

IF (m.EQ*10.OR.IG0.EQ#U*OR.IGO.EQ.12) WRITE (8*11) CMLPS*WL3 47 

IF (IG3*EQ»20*0R«IG3oEQ»21«DR«IG0«E0»22) WRITE (8,113 CNLPS * WHI 48 

IF ( IS3»NE* 7 ) GO TO 2 49 

CALL ERROR 50 

RETURM 51 

2 MAPGO*D 52 

IF ( ABS ( TFFLPS “TFFLP ) «LE*0®001*TFFIPS 3 GO TO 3 53 

MAPGQ= 1 54 

IF ( A3S(CNLPS-CNLP3*GT»0*001*CNLPS3 MAPG0=3 55 

GO TO 4 56 

3 IF I A8S(CNLPS-CNLP)*GT»0»001*CNLPS) MAPGQ=2 57 

4 IF ( MAPGO*GT*OI CALL MAPBAC ( 2? MAPGO* TFFLPSs TFFLP , CNLPS, C NLP, PCNF 9 58 

114, MODE? NOMAP 9 NUMMAP ) 59 

IF (N3MAPoGT*03 RETURN 60 

TFLCAt=WG5*SQRT(T5)/( 14*696»P5$ 61 

DHTCF=WAF*( H2 1-H2 3 / ( WG5* T5 ) 6 2 

IF ( 1 5 POOL « EQa 2 ) GO TO 5 63 

BTUEXT =0* 706705*HPEXT 64 

DHTCFsfBTUEXT*WAF*f H21-H23 )/(WG5*T5) 65 

5 CONTI MUE 66 

IF ( IDES ® EQs 0 ) GO TO 6 6? 

TFLPCF=TFLPDS /IF LCAL 68 

DHL PCF = DHTCF/DHTCLP 69 
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ETLPCF=ETLPDS/ETATLP 70 

WRITE ( 69 12) CNLPCF*TFLPCF*ETLPCF ? DHLPCF 71 

6 TFLC AL =TFLPCF*TFLCAL 72 

DHTCL^ =DHLPCF®DHTCLP 73 

ETATLP -ETLPCF»ETATLP 74 

DHTF=3HTCF*T5 75 

TFFACT =TFLCAL/TFLPCF 75 

CNACT= CNLP/CNLPCF 77 

DHCACF =DHTCLP/DHLPCF 78 

11=3 79 

12=4 80 

IF C IS POOL oNE® 1 ) GO TO 7 81 

11=1 82 

12=2 83 

I ERR I 1 1 ) =1 TFLCAL-TFFL P ) /TFLC AL 84 

ERR { 1 2 ) = ! DHTCF-DHTCl P ) /DHTCF 8 5 

CALL THTUR 8 { DHTF* ET ATLP *FAR 5 f H5* S5 ? P5* T55* H55 * S55 s P55 I 85 

IF I BLLP®LE*G* I GO TO 8 87 

FAR55 = WF 8 / ( WA3*BLHP+BLLP > 88 

WG55=dG5*BLLP 89 

H55=(8LLP*H3*WG5*H55 )/WG55 90 

CALL T-SERMO ( P55* H55 * 155 * $55 *XX2* I * F AR55 * 1 5 91 

GO TO 9 92 

8 FAR55= F AR5 93 

WG55=fifS5 94 

9 CALL FRTOSD 95 

RETURN 95 

97 

98 

10 FORMAT ( 19H0«^**»TFFLP OFF H AP • F10 • 4 * 2XA 69 1 1 ) 99 

II FORMAT (19H0®***® CNL P OFF MAP ® F10® 4 9 2XA6* 1 IN****® $$$$£$ * 100 

12 FORMAT i 20H0L* P® TURBINE OES I GN » 5X7HCNLPCF = 9 E15* 8 , 8 H TFLPCF= f E 1 5 . 8 101 

1*8H ET LPCF= f El 5® 8 ? 8 H DHL PCF= * E15« 8 ) 102 

END 103 


$1 BFTC CODUCT DECK 

SUBROUTINE CODUCT 1 

COMMON / ALL/ 2 

1 WORD t IDES ? JOES 9 KDES 9 MODE 9 INIT 9 IDUHP »I AMTP 9 3 

2 IGASMK t IDBURN® I AFT BN 9 IDCD 9 IMCD 9 IDSHOC 9 IMSrtOC* NOZFLT* 4 

3ITRYS 9 LOOPER f NOMAP , NUMMAP f MAPEDG* TOL ALL * ERR C 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ*PCNCGU*T4GU *DUMD1 f DUMD2 9 OELFG *DELFN 9 DELSFC* 7 

2ZFDS 9 PCNFDS* PRFDS 9 ETAFDS* WAFDS 9 PRFCF « ETAFCF 9 WAFCF , 8 

3ZCDS 9 PCNCDS* PRCDS 9 ETACDS » WACDS *PRCCF , E TACCF 9 W4CCF 9 9 

4T4DS 9 WFBDS « DTCODS , ETABOS, WA3CDS* DPCODS* DTCOCF 9 E TABCF* 10 

5TFHPDS t CNHPDS* ETHPDS 9 TFHPCF* CNHPCF $ ETHPCF* DHHPCF » T2DS , 11 

6TFLPD5 * CNLPDS* ETLPDS tTFLPCF9CNLPCF 9 ETLPCF 9 DHLPCF^T21DS 9 12 

7T24DS » WFDDS 9 DTDUDS« ETADDS* WA23DS* DPDUDS 9 DTDUCF *E TADCFt 13 

8T7DS 9 WFADS 9 DTAFDS , ETAADS 9 WG 6 CDS , OPAF DS* DTAFCF 9 ETAACF , 14 

9A55 9 A25 *A 6 9 A7 *A 8 *A9 f A28 *A29 9 15 

$PS55 *AM55 9 CVDNOZ « CVMN3Z 9 A 8 S A¥ $ A9SAY 9 A2 8S A V , A29SAV IS 

COMMON /FRONT/ XX f 80) 17 

COMMON / SIDE/ 18 

1PI 9 WAF *WAC 9 BLF 9 BLDU 3 *DUMS1 *DUM52 9 19 

2T21 *P 2 X *H21 » S21 9 T23 *P23 *H23 *S23 9 20 

3T24 9 P24 » H24 9 $24 *125 *P25 *H25 .525 9 21 
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4T28 » P28 ,H28 ,S28 »T29 ,P29 ,H29 ,S29 * 22 

5WAD , WFD ,WG24 .FAR24 , ETAD .DPDUC » BYPASS , DUMS3 * 2 3 

6TS28 » PS28 ,V28 ,AM28 »TS29 ,PS29 » V29 ,AM29 24 

COMMON /BACK/ ZZ { 72 5 25 

COMMON /DUMMYS/DUMMY l 100) 26 

EQU I VALENCE (A24, DUMMY (4) >, { AM23, DUMMY ( 5 ) ) 27 

EQUIVALENCE t AM25 9 ZZ t 48 ) ) 28 

DIMENSION Q( 9 ) 29 

DATA AW0RD1 » AWORD2/6HCODUCT » 6HDN0ZZL/ 30 

WORD=ArfORDl 31 

Q( 2 ) *0* 32 

Q? 3 ) = 3 » 33 

AJ=778.26 34 

CAPSF*2116.2170 35 

GOGO=D » 0 36 

G=32. 1 74049 37 

WAX=WAF-WAC-BLF 38 

WAD=WAK+BLDU 39 

P23=P2 l 40 

C*** DRY LOSS 41 

H23=( BLDU*H3+WAX*H21 ) /WAD 42 

CALL THERMO { P23» H23 , T23 .S23.XX2. 1 9 0. 0, 1 ) 43 

WA23C*WAD*SQRT(T23)/P23 44 

IF (IOES.EQ.l) WA23DS-WA23C 45 

BYPASS «<WAF-WAC)/WAC 46 

DPDUC* DPDUDS* ( WA23C/WA23DS) 47 

IF (DPDUC.GT.l. ) DPDUC=1 .0 48 

P24=P23*( 1. -DPDUC) 49 

CALL 9 ROCOM {0. t T23, XX1 9 XX2 9 XX3, XX4, PHI 23, XX6) 50 

IF ( I3ASMX.GT.0) IDBURN-0 51 

AM24=AM23 52 

TS24«T23»0.875 53 

1 DO 2 1=1.15 54 

CALL P ROCOM ( 0. , TS24, CS24, AK24, CP24, REX24, PH IS24, HS24) 55 

V24*AM24*CS24 56 

HSCAL=H23-V24**2/(2.*G*AJ) 57 

DELHS=HSCAL-HS24 58 

IF (A8SIDELHS).LE.0.001*HSCAL) GO TO 3 59 

2 TS24=TS24+DELHS/CP24 60 

GO TO 10 61 

3 C1=P24*SQRT(G/(T23*AJ) )*CAPSF 62 

IF I I3ES.NE.1) GO TO 4 63 

IF (GOSO.GT.O. I GO TO 4 64 

ASTQA= ( (AK24+1. >/2. ) »* ( ( AK24+1 . ) / 1 2. » l AK24-1 . ) ) ) * AM24* ( l . *( ( ( AK24- 65 

ll.)/2.)*AM24**2))**I ( AK24+1. )/( 2.*( AK24-1. ) ) ) 55 

EQWCR® SORT ( G* AX 24/ REX 24/ AJ ) / 1 SORT 1518.69)/ 21 16.2)*(2«0/t AK24+1 . } I* 67 

1* ( (AK2 4+1. )/2*/( AK24- 1. I ) 68 

WA23CC = WA23C/SQRT I 518.69) 69 

A24=l» / AST0A*WA23CC/EQWCR 70 

G0G0*1 .0 71 

4 WQA=W4D/A24 72 

WQAT*C1*SQRT l AX24/REX24) *AM24/C l.+( AK24-1. ) *AM24**2/2. ) **( ( AK24H. 73 

1 ) / ( 2. * ( AK24-1. ) ) ) 74 

DIR=W3 A/WQAT 75 

EH= ( W3 A-WQAT ) /WQA 76 

CALL AFQUIR i Qll) , AM24, EW, 0. , 30. , 0. 001 , OIR, AM24T , I GO ) 77 

GO TO (5.6,10), IGO 78 

5 AM24=AM24T 79 

IF I AM24.GT.1.0) AM24=0.5 80 

GO TO l 81 

6 PS24=?24/EXPUPHI23-PHIS24)/REX24) 82 

IF ( IDBURN.GT.O) GO TO 7 83 
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C*** NON-DJCT BURNING 84 

124=123 85 

WFD=0. 86 

FAR24= 0 87 

GO TO 16 88 

7 IF U3BURN.EQ.2) T24=T23*2000. 89 

8 IF (T24.GT.4000. ) T24=4000. 90 

IF (T24.LT, T23) T24=T23 91 

C*** DUCT 3JRNING 92 

RH042=:APSF*PS24/(AJ*REX24*TS24) 93 

PS42=P S24 94 

V42=V2 4 95 

Q ( 2 ) =0. 96 

Q( 3 ) =3 , 9? 

C *** IF OESIREDt ENTER CALCULATIONS FOR ETAD HERE 98 

HV= f ( I ( ( (-.4594317E-19*T24)-.2034116E-15)*T24+.2783643E-ll)»T24+.2 99 

1051501E-07) *T24-, 2453 116E-03 )*T24-,9433296E-01)*T2 4-*-.1845537E + 05 100 

CALL THERMO ( P24, HA, T24, XX 1, XX2, 0, 0.0, 0 ) 101 

FAR24* ( HA-H23) / ( HV*ETAD) 102 

IF (FAR24.LT. 0. ) FAR24=0. 103 

WFDX=FAR24*WAD 104 

IF ( I 3BURN.NE. 2 ) GO TO 11 105 

ERRW=( rtFO-WFDX ) /WFD 106 

0IR=S3RT(WFD/WFDX) 107 

CALL AFQUIR ( Q( 1 ) , T24, ERRW , 0. , 20. , 0. 0001 , DI R , T24T, IGO > 108 

GO TO (9, 12, 10), IGO 109 

9 T24=T24T 110 

GO TO 8 111 

10 CALL ERROR 112 

11 WFD-WFOX 113 

12 CONTINUE 114 

C*** MOMENTUM LOSS 115 

WG24=/j FD+WAD 116 

CALL ? ROCOM ( FAR24.T24, XXI, XX2 » XX3, REX24, PHI 24, H24 ) 117 

RH024«CAPSF*P24/(AJ*REX24*T24) 118 

V24=WS24/(RH024*A24) 119 

Q(2)=D. 120 

Q( 3 ) =3 . 121 

PS24*®S42-0.01 122 

13 RH024*WG24/( V24*A24) 123 

HS24»H24-V24**2/(2.»G*AJ ) 124 

CALL THERMO { 1.0 , HS24, TS24, PHI S24, XX2, 1 , FAR24, 1 ) 125 

IF (TS24.GE.301. ) G3 TO 14 126 

CALL THERMO ( 1 . 0, HS24, 400. , PHI S24, XX2, 1, F AR24, 1 ) 127 

V24=S3RT( 2. *G*AU* ( H24-HS24 ) ) 128 

GO TO 13 129 

14 PS24*RH024*AJ*REX24*TS24/CAPSF 130 

PS24A=PS42+( RH042*V42**2-RH024*V24»«2)/(G*CAPSF) 131 

DIR=S3RT(A8S( PS24/PS24A ) ) 132 

EP=(PS24-PS24A)/PS24 133 

CALL AFQUIR { Q( 1 ) , V24, EP , 0 . , 50. , 0. 001 , DI R, V24T, I GO ) 134 

V24=V2 4T 135 

IF (V24.LT. 25.) V24=25. 136 

GO TO (13,15,10), IGO 137 

15 P24=PS24*EXP ( ( PHI 24-PHIS24 ) /REX24) 138 

CALL 5 ROCOM ( FAR24, TS24, CS24, XX2, XX3, XX4, XX5 , XX6) 139 

AM24=V 24*CS24 140 

16 CALL THERMO ( P24, H24, T24,S24, XXI , 1, F AR24.0 ) 141 

WG24*H FD+WAO 142 

T25=T2 4 143 

P25=P2 4 144 

H25=H2 4 145 
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S25=S2 4 146 

AM25=AM24 147 

IF ( 1 3 ASMXo GT«0 ) GO TO 20 148 

W0RD=AW0RD2 149 

A28SAY=A28 150 

A29S AY*A29 151 

N0ZD=3 152 

IDNOZ*0 153 

IF (N3ZFLT.EQ.2.0R.N0ZFLT.EQ.3) NDZ3=1 154 

IF (IDES.EQ.l.OR.IDBURN.GT.O.OR.NDZD.EQ.l) IDNQZ-1 155 

IF (I3BURN.EQ.1.0R.M0ZFLT,,EQ.2.0R.N3ZFLT.E3.3> IDCD=1 156 

IF ( 10 BURN* EQ«0« AND® N0ZFLT.EQ®0) IDCD=0 157 

IF (I3CD.EQ.1) GO T3 17 153 

CALL CONVRG ( T25, H25 , P25 ,S25 »FAR24, WG24, PI , IDNOZ, A28 , P25R , T28 , H28 » 159 

1P28»S23»TS28,PS28»V28»AM28» ICON ) 160 

GO TD f 18,18,18,10), ICON 161 

17 CALL C3NDIV ( T 25,H25 , P25,S25, FAR24, MG24, P 1 , 1 ONOZ , A28, A29 , P25R, T2 8 , 162 

1H28,P2B,S28,T29,H29,P29,S29,TS28,TS29,PS28,PS29,V28,V29,AM28,AM29, 163 

2 ICON ) 164 

IDSHO:=ICON 165 

GO TO 119,19,19,10), ICON 166 

18 T29=T2 6 167 

H29=H2 8 168 

P29=P2B 169 

S29=S2 8 170 

TS29=TS28 171 

PS29=P 528 172 

V29=V2 3 173 

AM29=A M28 174 

A29=A2B 175 

IDSHDC-ICON+3 176 

19 ERRI5) =«P25R-P25)/P25R 177 

IF (I3N0Z.EQ.1) WRITE (6,21) A28, AM28, A29, AM29 178 

20 CALL FASTBK 179 

RETURN 180 

181 
182 

21 FORMAT (19H0DUCT NOZZLE DESIGN, 5X8H A28=, E15, 8 , 8H AM28*,E15.8 183 

1,8H A29=,E15.8,8H AM29=,E15.8) 184 

END 185 


SIBFTC COMIX DECK 

SUBROUTINE COMIX 1 

COMMON / ALL/ 2 

1W0RD , IDES , JDES , KDES , MODE , INIT , I DUMP , IAMTP , 3 

2IGASMX, ID BURN, I AFT BN, IDCD , IMCD , IDSH3C, IMSHOC.NOZFLT, 4 

3ITRYS ,LOOPER, NOMAP , NUMMAP, MAPEDG, TOL ALL, ERR ( 6 ) 5 

COMMON /DESIGN/ 6 

1PCNFGJ, PCNCGU.T4GU ,DUMD1 , DUMD2 , DELFG , DELFN , DELSFC , 7 

2ZF0S , PCNFDS»PRFDS , ETAFDS, WAFDS ,PRFCF , E TAFCF , WAFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS, WACDS ,PRCCF , ETACCF , WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABOS, WA3CDS, DPCODS, DTCOCF, E TABCF , 10 

5TFHPDS,CNHPDS,ETHPDS, TFHPCF, CNHPCF, ETHPCF »DHHPCF , T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF»CNLPCF,ETLPCF,DHLPCF,T21DS , 12 

7T240S , WFDDS , DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , ETADCF, 13 

8T7DS * WF ADS , DTAFDS , ETAADS, WG6CDS, 3PAFDS, DTAFCF , ETAACF , 14 

9A55 , A25 ,A6 ,A7 ,A8 ,A9 ,A28 ,A29 , 15 
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SPS55 *AM55 * CVDNGZ , CVMN3Z, &85AV 

COMMON /FRONT/QZQf 803 /SIDE/QWQC 48 3 
COMMON / BACK/ 

, A9SAV 

, A28SAV 

, A29SAV 


lb 

17 

18 

1 T55 

? P55 

, H55 

*S55 

,125 

? P25 

, H25 

, $25 

? 

19 

2 WFB 

9 WG55 

9 FAR55 

*wfd 

, WG24 

9 FAR24 

,P1 

9 DUMB 

9 

20 

3T6 

,P6 

,H6 

» S6 

, 17 

9 P7 

9 H7 

9 SI 

9 

21 

4T8 

*P8 

*H8 

, S8 

, T9 

9 P9 

, H9 

,59 

5? 

22 

5WG6 

,WFA 

? WG7 

§ FAR7 

* ETA& 

, DPAFT 

,V55 

,V25 

«> 

23 

6PS6 

• V6 

9 AM 6 

*TS? 

, PST 

*V7 

* AM? 

,AM25 

V 

2 4 

7TS8 

? PS8 

$ V8 

9 AM8 

JS9 

, PS9 

p V9 

*AM9 

9 

25 

8VA 

, FRO 

? V JD 

® FGMD 

, VJM 

, FGMM 

* FGPD 

, F GPM 

t 

26 

9FGM 

9 FGP 

*WFT 

, WGT 

, FART 

, FG 

,FN 

*SFC 
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EQUIVALENCE ( ZF*QZQf 68 fPCNF 9 QIQ( 69 3) 
COMMGN/DUMMYS/DUMMYt 100} 

COMMON / L OOP PR/KK GO, PRFNEWgPRCMEW 
DATA AW0RD/6H COMIX/ 

DIMENSION GQC93 
WORD*A WORD 
AJ=778 « 26 
CAPSF*2U6*2170 
G-32* I 74049 

CALL y ROCOM { FAR55* T55, XXI* XX2tXX3*XX4®PHI55, XX5 ) 

CALL PROCOM ( FAR24, ?25* XXI ,XX2, XX3, XX4, PHI 25 *XX5 3 
IF { 1 3ES» EQ* 0 1 GO TO 12 
C *** CALCULATE A55 AND A25 WITH PS25=PS55 
IF ( PS 55© EQ© 0® ) GO TO 3 
T$55 = T55MPS55/P55S«0»286 
DO 1 I =1 ^ 15 

CALL PROCOM ( F AR55, T S 55* CS55* AK55* CP 55 s REX55* PHI S55 *H$55 I 
PHIS=PHI55~REX55*AL3G(P55/PS55> 

DELPHI* PH XS-PHIS55 

IF ( A&$ID£LPHn©L£*0*0001^PHIS3 GO TO 6 

1 TS55=TS55*EXPI4©0#DELPHI > 

2 CALL ERROR 
RETURN 

3 TS55=0o875*T55 
DO 4 1*1,15 

CALL PROCOM C FAR55* TS55, CS55 , AK55, CP55* REX55, PHI S55 ,HS55 ) 

V55* AM55*CS55 

HSCAL=-»55-V55**2/I2«*G*AJ) 

DELHS* HSCAL-HS55 

IF CAB$«DELHS)©LEc0*0005®HSCAL) GO TO 5 

4 TS55=T$55*DELH$/CP55 
GO TO 2 

5 PS55»P 55/EXP { (PH 1 55-PHIS 55) /REX55) 

IF ( PS 55© GT ® P25© AND© I OES ©EQ« 1© AND® I GASMX©ST©0> SO TO 47 

6 IF C H5 5© GT« HS55 ) GO TO 7 

WRITE (8,483 P55* PS55 , T55* TS55* H55, HS55 
CALL ERROR 

7 V55=$3RT(2**G»AJ*(H55~HS55n 
RHO=CAPSF*PS55/!AU*REX55»TS553 
A55=WS55/(RH0*V55) 

AM55*V 55/CS55 
IF I I34SMX®GT©0) GO TO 8 
WRITE (6,49) A55, AM55 
IF ( I3A$MX®EQ®-1 ) GO TO 35 
IF ( I S ASMX ® EQo 0 3 GO TO 43 

8 PS25 = P S55 
TS25«r25*(PS25/P25)»*0.266 
DO 9 1*1,15 

CALL PROCOM f FAR24* TS25 , CS25 , AK25 , CP25, REX25,PHIS25 *H$25 3 
PHI S = P HI 25-REX 25* ALOG ( P25/PS25 3 
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29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
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CCH 2 ) = 3* 141 

GQ(3)=3. 142 

AM2 5 = 3 * 25 143 

TS2 5=3 »875*T 25 144 

23 DO 24 1*1,15 145 

CALL P ROCOM ( FAR24, T S25, CS25* AK25, CP25, REX25 » PHI S25.HS25 5 146 

V25=AM25»C$25 14? 

HSCAL=H25-V25»*2/ (2«*G*AJ) 148 

DELHS= HSC AL-HS25 149 

IF {A3SIDELHSi«LE®0a0005*HSCAL} SO TO 25 150 

24 TS25-TS25+DELHS/CP25 151 

GO TO 2 152 

25 W0AT = :ieSQRT(Ai<25/REX25 5«AM2 5/{l.-s f AK25-1 . > »AM25»*2/2. )»*U AK25*1. 153 

11/(2. »{AK25-1. )) ) 154 

AMX=AM25 155 

IGOGO*1 ' 156 

GO TO 16 157 

26 PS25*P25/EXPCCPHI25-PHIS25)/REX25) 158 

2? WG6*W324+WG55 159 

ERR ( 55 = ! PS25-PS55 5 /PS 25 160 

WF6=WF D4-WFB 161 

FAR6=dF6/(WG6-WF65 162 

H6= ( W524«H25+WG55*H55 5/WG6 163 

CALL THERMO (1, ,H6, T6 , PHI6, AMX, 1,FAR6, 1 5 164 

Cl=PS55*A55*(l.+AK55*AM55**2)+PS25*A25*(l.+AK25*AM25**2) 165 

TS6=0. 333*T6 166 

DO 32 1=1,15 167 

CALL PROCOM ! FAR6, TS6, CS6, AK6, CP6, REX6, PHI S6.HS6 ) 168 

C2=WG5»SQRT( AJ*REX6®T6/( AK6*G> > 169 

C3=C2/ICAPSF*C1) 170 

C4= ( AX5-1 . )/2»-(C3*AK6)**2 171 

C5*1.-2.»AK6*C3**2 172 

C6=C5» »244 . *C4*C3**2 173 

IF (C5i 28,29,30 174 

28 CALL ERROR 175 

RETURN 176 

29 AM62G»-C5/(2.*C4> 177 

GO TO 31 17S 

30 AM62G* (SORT(C6)-C55/S2.»C45 179 

31 IF ( A452G.LE.0. 5 GD TO 28 180 

AM6G=S3RT ( AM62G) 181 

V6* AM5 S*CS6 182 

HSCAL=H6”V66®2/{2®»S«AJ{ 183 

DELHS«HSCAL-HS6 184 

IF (A8S(0ELHS5.LEe0.0005*HSCAL5 GO TO 33 185 

32 TS6=TS6'«-DELHS/CP6 185 

GO TO 28 187 

33 IF ( ISASMX.GT.O) GO 70 34 188 

34 A6G=A25*A55 189 

C7=SQRT{ 1.+IAK6-1. >*AM62G/2. ! 190 

PS6=C2/(CAPSF»A6G*AM6G*C7l 191 

P6=PS5 »EXP ( ( PHI 6-PHI S65/REX65 192 

CALL THERMO (P6,H6*T6,S6,XXl®l»FAR6,05 193 

S6AVE«{ WG24*S25+WG55»S55 5/WG6 194 

IF (S5.GE.S6AVE) GO TO 35 195 

S6=S6AHE 196 

P6=EXP(AMX*(PHI6~S6)/ 1.986375) 197 

35 IF ( I3ASMX.EQ.1 ) GO TO 45 198 

IF S ISASHX.EQ.-l } G3 TO 36 199 

IF ! IGASMX.EQ.2) GO TO 37 200 

36 T6=T55 201 

P6=P55 202 

H6=H55 203 
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37 


38 

39 


C 

40 


41 

42 

43 


44 

45 

46 

47 


S6=S55 
WG6-W355 
PS6 = P$ 55 
FAR6=F AR55 
AK6=AK55 

IF I IOES*EG«05 GO TO 40 

CALCULATES A 6 AS A FUNCTION OF INPUT AH6 
TS6=?S/ C 1 ®0^C C I AK6~loO 1/2*05 *AH6*»2 5 ) 

DO 38 JJ=I*15 
AK6P = A <6 

CALL PROCDM ( FAR6 9 TS6?CS6 s AK6 f CP6* REX6, PtflS6,HS6 I 

V6=AMS &CS6 

DELAK6=AK6P-A&6 

IF ( ABS ! DELAK6K LE®0 « 0005&AK6 1 GO TO 39 
TS6 = T6/CK0*« { C AK6-I « 0 > /2® 0 5 *AM6**2 5 1 
GO TO 28 

PS6=PS/S l 1® G*M I I AK6«~1 «0)/2©01*AM6*»2l ) AK6/ ( AK6-1 ® 01 ) ) 
AM6 AB3= AM6 

RH0=CAPSF*PS6/ C AJ*REX6*T S6 ) 

A6=WG6 / I RHO* V6 ) 

WRITE 16,54) A6 
GO TO 46 

CALCULATES M6=FC A6DES IGN I 

TS6P=T6/I 1*0H H AK6-1 *0) /2® 0 )*AM6ABD»*2 1 I 

DO 41 1=1,15 

CALL P^OCOM {FAR6,TS6P,CS6,AK6,CP6®REX6tPHIS6,H$6) 

P$6P = PS6*(TS6P/TS6)*® ( AK6/{ AK6-U0I 1 
RH06=:AP$F*P$6P/ ( AJ*REX6*TS6P) 

V6=SQRT I2®*G^AJ*( H6-HS6 ) ) 

IF I H5-HS6) o LT«0*0) GO TO 44 
A6P=WS6/f RH06®V6) 

DEL A6= A6P“ A6 
V6=WGS f I RH06^A6 ) 

AM6=VS/CS6 
AB62 = M6»*2 

IF TABS ! DELA6 5 ®L£®00«002»A61 GO TO 42 

TS6P = f5/U®0*{ ( { AK6- 1*01/2*0) «-AH62 1 1 

GO TO 28 

TS6=TS6P 

PS6=P$5P 

GO TO 46 

T6=T55 

P6=P55 

H6=H55 

S6=S55 

WG6=WS55 

PS6=PS 55 

V6=V55 

AM6 = AN 55 

IF ( I3ASHX*EQ®0) A6=A55 
GO TO 46 

WRITE 16,551 H6*HS6 

GO TO 28 

AM62-A M62G 

AM6=AN6G 

A6=A25*A55 

CALL OOAFBN 

RETURN 

KKG0=1 

OPRDS=PRFDS*PRCDS 

PRFMEW = PRFDS#PS55/P25*1® 02 

PRCNEW-OPRDS/PRFNEW 


204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 
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CALL ENG8AL 265 

RETURN 267 

C 268 

C 269 

48 FORMAT i 22H0SQRT OF H55-HS55 MEG * 6E 15* 6* 6H$$$$$$ > 270 

49 FORMAT ( 20H0TUR8INE AREA DES IGM» 6X6H A55- ? E I5« 8 S 8H AM55=*E15»3) 271 

50 FORMAT (22H0SQR! OF H25-HS25 MEG * 6E 15* 6, 6H«$$$$ ) 272 

51 FORMAT i 25HOTUR8 iME/ DUCT AREA DESIGN? 7H A55= *E15* 8 9 8H AM55 = jEi 273 

15*8*84 A25=*E15*8*8H AM25=*E15*8) 274 

52 FORMAT ( 1 2H0C0MI X PCNF^* F7*4* 4H AM=,F8s6,5H P55=*F9*5®6H PS55=tF9* 275 

15, 5H *25=9 F9«5, 6H PS25=, F9. 5 9 6H$$$$$* ) 276 

53 FORMAT { 10H0C0MIX ZF=* F8,5 f 4H AM^ ? F8s6 ? 5H P55= 9 F9*5*6H PS55= 9 F9«5* 277 

15H P25 = » F9a 5 , 6H PS25 = *F9 *5 * > 278 

54 FORMAT { 3X 9 27HAF TER BURNER DESIGN AREA A6 F8*3) 279 

55 FORMAT { 3X* 18HNEG® HS6 FACTOR H6 F9» 4* 3X* 4HHS6 F9*4) 280 

END 281 


$ I BFTC C0AF3N DECK 


SUBROJ TINE COAFBN 



1 

COMMON 

/ ALL/ 



2 

1W0RD 

.IDES , JDES » KDES .MODE 

9 INI T 

9 I DUMP « I AMTP 9 

3 

2IGASMK 

» IDBURN.IAFTBN, IDCD , IMCD 

tIDSHOC 

9 I MSHOC tNOZFLT* 

4 

3ITRYS 

.LODPER.NDMAP . NUMMAP » MAPEDG 

9 TOLALL 

9 ERRI 6 ) 

5 

COMMON 

/DESIGN/ 



6 

1PCNFGJ 

. PCNCGU. T4GU . DUMD 1 . DUMD2 

tDELFG 

t DELFN 9 OELSFC, 

7 

2ZFDS 

» PCNFDS . PRFDS . ETAFDS, WAFDS 

j PRFCF 

,ETAFCF-,WA FCF ? 

8 

3ZCDS 

. PCNCDS. P^COS 9 ETACDS » WACDS 

9 PRCCF 

9 ETACCF 9 WACCF ¥ 

9 

4T4DS 

jWFBDS f DTCODS . ETABDS » WA3GDS 

9 DPCDDS 

9 DTCOCF 9 ETABCF 9 

10 

5TFHPD5 

» CNHPDS » ETHPDS . TFHPCF » CNHPCF 

® ETHPCF 

* DHHPCF 9 T2DS 9 

n 

6 TFLPDS 

,CNLPDS,ETLPDS,TFLPCF,CNLPCF 

sETLPCF 

f DHLPCF*T21DS 0 

12 

7T24DS 

9 WFDDS » DTDUDS » ETADDS. WA23DS 

? DPDUDS 

* DTDUCF 9 ETADCF» 

13 

8T7DS 

.WFADS ,DTAFDS.ETAADS9WG6CDS 

9 OPAFDS 

9 DTAFCF ® E TAACF 9 

14 

9A55 

» A25 t A6 »A7 . A8 

9 A9 

f A28 ® A29 9 

15 

$PS55 

. AM55 ,CVDN0Z,CVMNQZ,A8SAV 

9 A9SA V 

9 A28SAV»A29SAV 

16 

COMMQM/F^ONT /QXQi 80i / SIDE/QYQ t 48 > 



17 

COMMON 

/ BACK/ 



18 

1T55 

9 P55 ? H55 § S55 9 T25 

, P25 

? H25 t S25 9 

19 

2WFB 

s WG55 « FAR55 9 WFD *WG24 

9FAR24 

*P1 9 DUMB ® 

20 

3T6 

9 P6 9 H6 *S6 9 T7 

tP7 

9 H7 ? S7 9 

21 

4T8 

® P 8 9 H 8 *S 8 t T9 

*P9 

9 H 9 9 S 9 t? 

22 

5WG6 

& WF A 9 WG7 t F ART * ETAA 

? DP AFT 

*V55 9 V25 9 

23 

6PS6 

? V 6 9 AM6 ® TS7 *PS7 

*V7 

*AM7 t AM25 t 

24 

7TS8 

*PS 8 9 V 8 *AM8 9 TS9 

9 P S9 

9 V 9 9 A M9 f 

25 

8 VA 

*FRD 9 VJD « FGMD , VJM 

, FGMM 

® FGPO 9 FGPM 9 

26 

9FGM 

9 FGP *WFT *WGT sFART 

» FG 

9 FN 9 SFC 

27 


COMMON /DUMMY S/ DUMMY! 100) 28 


EQUIVALENCE ( P6DS AV* DUMMY{7> ) 9 I AM6DS M 9 DUMMY i 8 ) ) * ( ETAAS V* DUMMY < 9 ) S, 29 

l!FAR7SV®DUMMYf 10) ) 30 

DIMENSION Q C 9 ) * 31 

DATA A*J0RD/6HCDAFBN/ 32 

WORD = A ^ORD 33 

Q f 2 I = 0 © 34 

Qm=o* 35 

AU= 773 e 26 36 

CAPSF=21I6©2170 37 

G=32 * 1 74049 38 

C*** P6DS AND AM6DS ARE SET FOR GENERALIZATION OF AFTERBURNER 39 
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c»*» 


EFFICIENCY MAP GENERALIZATION 40 

IF UaES.EQ.il P6DS=P 6* 14.696 41 

IF (IDES. EQ. II AM60S= AM6 42 

WF6=WF B 43 

IF I I 3ASMX.GT .0) WF6=WF6+WFD 44 

WA6=W36-WF6 45 

C *** DRY L3SS 46 

WG6C=*36*SQRT(T6)/P6 47 

IF UDES.EQ.il WG6CDS=WG6C 4B 

DPAFTOPAFDSM WG6C/rfG6CDS> 49 

IF (DRAFT. GT.l. I DPAFT=1 . 50 

P7=P6* ( l.-DPAFT) 51 

A7=A6 52 

FAR6=d F6/ WA6 53 

CALL PR0C0M ( FAR6, T6 , XXI ,XX2 ,XX3 , XX4, PHI 6,XX6) 54 

WQA=W35/A7 55 

C1=P7»SQRT(G/(T6*AJ) )*CAPSF 56 

AM7=AM6 57 

TS7=0» 875*T6 58 

1 DO 2 1=1,15 59 

CALL PR0C0M ( F AR6, TS7.CS7, AK7 »CP7, R5X7, PHI S7 ,HS7 1 60 

V7=AM7 *CS7 61 

HSCAL=H6-V7**2/(2.*S*AJ) 62 

DELHS=HSCAL-HS7 63 

IF ( ABS(DELHS).LE.0.0005*HSCAL) GO TO 3 64 

2 TS7=TS7+DELHS/CP7 65 

GO TO 14 66 

3 WQAT=:i*SQRT( AK7/REX7 l*AM7/ ( 1.+IAK7-1. |«AM7**2/2. I **( t AK7+1. > / (2. * 67 

UAK7-L.il) 63 

DIR=W3 A/WQAT 69 

EW={ W3A-WQATI/WQA 70 

CALL AFOUIR ( Q( 1 1 , AM 7, EW, 0 . , 40. , .001 , DIR , AM7T, I GO I 71 

GO TO (4,5,14) , 1 GO 72 

4 AM7=AM7T 73 

IF (AM7.GE.1.0) AM7-0.9 74 

GO TO l 75 

5 PS7=P7/EXP( (PHI6-PHIS7I/REX7I 76 

IF ( I AFTBN.GT .0 I GO TO 7 77 

C *** NON-AFTERBURNING 78 

6 T7 = T6 79 

WFA=0. 0 80 

FAR7 = F AR6 81 

WG7=W3 5 82 

IF (IDES.EQ.1.AND.T7DS.NE.0. I GO TO 7 83 

GO TO 20 84 

C *** AFTERBURNING 85 

7 IF ( I AFTBN.EQ. 2 1 T7*T6+2000. 86 

IF ( ID5S.EQ.il T7=T7DS 87 

IF (T7.LE.T6) GO TO 6 88 

RH06 5*:APSF*PS7/< AJ*REX7*TS7 I 89 

PS65=PS7 90 

V65=V7 91 

Q ( 2 I =0 . 92 

QI 3 I =0. 93 

8 IF (T7.GT.4000. I 17=4000. 94 

HV=( (U ( (-.4594317E-19*T7)-.2034116E-15)*T7+.2783643E-ll)*T7 + .2051 95 

1501E-07)*T4-.2453116E-03 >*T4-.9433296E-01 I »T4+ . 1845537E+05 96 

CALL THERMO ( P7, HA, T 7 , XX 1, XX2, 1 , FAR6 , 0) 97 

C»** TO ALTER DESIGN ABET A A MAP FROM GENERAL TO SPECIFIC MAP 98 

IF ( IDES.NE.l) GO TO 9 99 

FAR7DS=(HA-H6)/(HV*ET AADS) 100 

CALL ETAAB ( 0, , 0. , 0. , 0. » ETA ADS, ETAASV, P6DS, P6DSAV, AM6DS, AM6DS V, l DE 101 

1S,FAR7DS,FAR7SV> 102 
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9 


T7= T 6 103 

GO TO 20 104 

P6GS= 3 5*14.696 105 

FAR7GS=(HA-H6)/(HV*ET A ADS ) 106 

DO 10 11=1,15 107 

CALL 5 T AAB ( FAR7GS, AM6.P6GS, ETAA, ETAADS , ETAASV ,P6DS,P6DSAV, AM5DS , A 108 

1M6DSV, IDES, FAR 70S, FAR7SV ) 109 

FAR7=(HA-H6)/(HV*ETAA) 110 

DELF A7=ABS ( FAR7-FAR7GS ) 111 

IF (DELFA7.LE.0„01*FAR7) GO TO 11 112 

10 FARTGS =FAR7 113 

11 CONTINUE 114 

IF (FAR7.GT.0. ) GO TO 12 115 

CALL ERROR 116 

12 WFAX=FAR7«WG6 117 

IF I IAFTBN.EQ.1) GO TO 15 118 

ERRW=! rfFA-WFAX ) /WFA 119 

DIR=S3RT(WFA/WFAX) 120 

CALL AFQUIR { Q (l) , T7, ERRW, 0. ,30. 0005, DI R , T7T, IGO ) 121 

GO TO { 13,16,14) , IGO 122 

13 T7=T7T 123 

GO TO 8 124 

14 CALL ERROR 125 

15 WFA=WF AX 126 

16 FAR7=UF6+WFA)/WA6 127 

WG7=W36+WFA 128 

C *** MOMENT DM LOSS 129 

CALL PROCOM ( FAR7, T7 , XXI ,XX2 , XX3, REX7, PHI 7,H7) 130 

RH07=S APSF*P7/ I AJ*REX7*T7) 131 

V7=WG7/tRH07*A7) 132 

Q(2)=D® 133 

0( 3 ) =0 . 134 

PS7=PS55-0.01 135 

17 RH07=WG7/(V7*A7) 136 

HS7=H7-V7**2/ 12. *G*A J ) 137 

CALL THERMO ( 1.0,HS7,TS7,PHIS7,XX2, 1.FAR7.1 ) 138 

IF fTS7.GE.301. ) GO TO 18 139 

CALL THERMO ( 1 .0, HS7, 400. , PHIS7, XX2, 1, FAR7, 0) 140 

V7=SQRT(2.<*G»AJ*(H7-HS7) ) 141 

GO TO 17 142 

18 PS7=RH07*AJ*REX7*TS7/CAPSF 143 

PS7A=»S65+(RH065*V65**2-RH07*V7**2)/IG»CAPSF) 144 

DIR=S3RT I ABS (PS7/PS7A) ) 145 

EP=IPS7-PS7A)/PS7 146 

CALL AFQUIR { Q( 1 ) , V7 , EP, 0. , 50., .001 ,D IR, V7T, I GO) 147 

V7= V7T 148 

IF (V7.LT.100.) V7=100. 149 

GO TO (17, 19, 14), IGO 150 

19 P7=PS7 »EXP( ( PH 1 7 -PH I S7)/REX7 ) 151 

CALL PROCOM ( FAR7 , TS 7 , CS7, XX2,XX3, XX4, XX5 , XX6) 152 

AM7=V7/CS7 153 

20 CALL THERMO ( P7, H7, T7 , S7 , XX2 , 1 , FAR7 » 0 > 154 

IF ( I0ES.EQ.1) WRITE (6,21) WG6CDS 155 

CALL SQMNOZ 156 

RETURN 157 

C 158 

C 159 

C 160 

21 FORMAT ( 19H0 AFTER BURNER DESIGN, 5X8H HG6CDS=»EI5.8) 161 

END 162 
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$ I BFTC FRTOSD DECK 

SUBROUTINE FRTOSD 1 

C0MM0N/AIL/XX(28)/DESIGN/YY(80) 2 


COMMON / FRONT/ 







3 

1T1 9 Pl 

*H1 

*S1 

*T2 

*P2 

9 H 2 

*S2 

9 

4 

2T21 *P21 

* H 21 

© S21 

9 T3 

9 P3 

t H3 

*S3 

9 

5 

3T4 *P4 

t H4 

*S4 

9 T5 

9 P5 

9 H5 

t S5 

9 

5 

4T55 ® P55 

? H55 

*S55 

9 BLF 

« BLC 

« BLDU 

9 BLOB 

9 

7 

5CNF ,PRF 

s ET AF 

9 WAFC 

9 WAF 

? WA3 

9 WG4 

*FAR4 

9 

8 

6 CNC ©PRC 

9 ETAC 

© WACC 

*WAC 

t ETAB 

t DPCOM 

9 DUMP 

f 

9 

7CNHP 9 ET ATHP 

s DHTCHP 

t DHTC 

s BLHP 

s WG5 

s FAR5 

f CS 

9 

10 

8 CNLP • ET ATLP 

t DHTCLP 

* DHTF 

g BLLP 

*WG55 

$ F AR55 

9 H P E X T 

9 

11 

9AM 9 ALTP 

3 ETAR 

sZF 

t PCNF 

*ZC 

« PCNC 

*WFB 

9 

12 

STFPHP *TFFLP 

9 PCBLF 

t PCBLC 

? PCBLDU 

I^PCBLOB 

f PCBLHP 

* PCBLLP 

13 

COMMON / SIDE/ 







14 

IXP1 9 XW AF 

© X W AC 

« XBL F 

^ XBLDU 

9 XH3 

? DUMS1 

9 DUMS2 

9 

15 

2XT21 ? XP2I 

* XH21 

* XS2 1 

g T23 

9 P23 

9 H23 

*S23 

9 

16 

3124 9 P24 

? H24 

? S24 

? T25 

9 P25 

t H25 

9 S25 

9 

17 

4128 9 P28 

? H28 

$ S28 

s T29 

*P29 

? H29 

9 S29 

9 

18 

5WAD © WFD 

9 WG24 

* FAR24 

* ET AD 

9 DPDUC 

9 BYPASS 

9 DUMS3 

t 

19 

6TS28 * PS28 

®V28 

9 AM28 

« TS29 

9 PS29 

9 V29 

*AM29 


20 

C0MM0M/BACK/ZZ(72) 







21 

COMMON ZDUMMYS/ DUMMY ( 

o 

o 






2 2 

LOGICAL ERRER 

9 FAN 







23 

EQUIVALENCE ( FAN* DUMMY f 1 1 5 

(ISP00L*DUMMY(6) ) 



24 

XPI=P1 








25 

XWAF = *UF 








26 

XWAC-d AC 








27 

XBLF=BLF 








28 

XBLDU= BLDU 








29 

XH3=H3 








30 

XT2 1 = T 21 








3 i 

XP2 1 = P 21 








32 

XH2 I =H21 








33 

XS2 1 = S 2 1 








34 

IF (FAN) CALL 

CODUCT 







35 

IF (FAN) RETURN 







35 

CALL FASTBK 








37 

RETURN 








38 

END 








39 


$ I BFTC FASTBC DECK 

SUBROUTINE FASTBK 


COMMO'J Z ALL/XX ( 28 > /DES IGN/YY 

COMMON 

/ FRONT/ 


1T1 

,P1 

9 HI 

fSl 

2121 

v P2 X 

9 H21 

*S 21 

3T4 

9 P4 

*H4 

*S4 

4T55 

* P5 5 

» H55 

9 S55 

5CNF 

9 PRF 

9 ET AF 

9 WAFC 

6 CNC 

* PRC 

9 ETAC 

9 WACC 

7CNHP 

? ET ATHP 

® DHTCHP 

9 DHTC 

8 CNLP 

9 ET ATLP 

9 DHTCLP 

©DHTF 

9AM 

9 ALTP 

9 ETAR 

9 ZF 

STFFHP 

9 TFFLP 

v PCBLF 

9 PCBLC 

COMMON 

/ SIDE/ 


1XP1 

*XWAF 

» XWAC 

9 XBL F 

2XT21 

* XP2 I 

* XH21 

*XS21 


1 

2 

3 


H2 

9 S2 

9 

4 

H3 

9S3 


5 

H5 

9 S5 

f 

6 

BLDU 

* BLOB 

t 

7 

WG4 

*FAR4 

9 

8 

DPCOM 

? DUMP 

9 

9 

FAR5 

*CS 

9 

10 

FAR55 

tHPEXT 

$ 

11 

PCNC 

*WFB 

* 

12 

PCBLHP 

$ PCBLLP 

13 

14 

0UMS1 

* DUMS2 

9 

15 

H23 

* S23 

9 

16 


(805 

* T2 tP 2 * 

? T3 9 P3 

9 T5 ? P5 

*BLF * 8 LC t 

f WAF *WA3 t 

s WAC © ETAB * 

? BLHP * WG5 , 

s BLLP *riGS5 9 

9 PCNF *ZC 

? PCBLDUsrPCBLOB ? 

9 XBL DU * XH3 f 

a T23 » P23 ^ 
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3T24 ,P24 » H24 , S24 ,T25 ,P25 ,H25 ,S25 , 1? 

4T28 f P28 » H28 ,S28 , T29 ,P29 ,H29 ,S29 » 18 

5WAD > WFD ,WG24 .FAR24 » ETAD .DPDUC , BYPASS, DUHS3 , 19 

6TS28 » PS28 »V28 ,AM28 ,TS29 ,PS29 ,V29 ,AM29 20 

COMMON / BACK/ 21 

1XT55 • XP55 • XH55 ,XS55 ,XT25 »XP25 ,XH25 ,XS25 , 22 

2XWP9 , XWG55 , XF AR55 , XWFD »XWG24 ,XFAR24,XXP1 .DUMB , 23 

3T6 ,P6 ,H6 ,S6 ,T7 ,P7 ,H7 ,S7 , 24 

4T8 ,P8 ,H8 „S8 , T9 ,P9 ,H9 ,S9 , 28 

5WG6 , WF A ,WG7 . FAR7 , ETAA , DPAFT ,V55 ,V25 , 25 

6PS6 ,V6 , AM6 ,TS7 ,PS7 ,V7 ,AM7 , AM25 , 27 

7TS8 , PS8 ,V8 , AM8 . TS9 ,PS9 , V9 , AM9 , 29 

8VA » FRD . V JD , FGMD ,VJM , FGMM ,FGPO . FGPM , 29 

9FGM ,FGP , WFT ,WGT .FART » FG ,FN ,SFC 30 

COMMON /DUMMYS/ DUMMY ( 100) 31 

LOGICAL ERRER. FAN 32 

EQUIVALENCE ( FAN. DUMMY (11) ) , ( I SPOOL, DUMMY! 6) > 33 

XT55 = T 55 3 a 

XP55 = P 55 35 

XH55M55 3 6 

XS55=S 55 37 

IF (FAN) GO TO 1 38 

T25=T21 39 

P25=P2 1 AO 

H25=H21 a l 

S25=S2 l a 2 

WG24=M AF-BLF A3 

1 XT25=T 25 aa 

XP25=P25 a 5 

XH25=H25 A6 

XS25=S25 a 7 

XWFB=MFB A8 

XWG55=MG55 A9 

XFAR55 =FAR55 50 

XWPD=MFD 51 

XWG24= WG24 52 

XFAR24=FAR24 53 

XXP1=P1 5 a 

CALL COMIX 55 

RETURN 56 

END 57 


$ I BFTC CQMN3Z DECK 

SUBROJUNE COMNOZ 1 

COMMON / ALL/ 2 

1W0RD , IDES » JOES , KDES .MODE , INIT .IDUMP , IAMTP , 3 

2IGASMX, IDBURN, IAFTBN.IOCD , IMCD , IDSHOC , IMSHOC » NOZFLT , A 

3ITRYS » LOOPER. NOMAP , NUMMAP , MAPEDG , TOLALL » ERR ( 6 ) 5 

COMMON /DESIGN/ 5 

1PCNFGJ, PCNCGU.T4GU . DUMD1 , DUMD2 , DELFG , DELFN .DELSFC, 7 

2ZFDS , PCNFDS , PRFDS » ETAFDS, WAFDS . PRFCF , ETAFCF , W AFCF , 8 

3ZCDS , PCNCDS, PRCDS , ETACDS, MACDS .PRCCF » ETACCF, WACCF , 9 

4T4DS , WFBDS , DTCODS , ETABDS , WA3CDS, DPC3DS, DTCOCF , ETABCF , 10 

5TFHPDS,CNHPDS,ETHPDS,TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF,DHLPCF,T21DS , 12 

7T240S .WFDDS , DTDUDS , ET ADDS, WA23DS, DPDUDS, DTDUCF , ET ADCF , 13 

8T7DS , WFADS , DTAFDS , ETA ADS, MG6CDS, 3P AFDS, DTAFCF , ETAACF , 1A 

9A55 , A25 , A6 , A7 , A8 , A9 , A28 , A29 , 15 
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o u in 


2 

3 


$PS55 g AM55 • CYDNOZ » CVMNOZ v A8S &V , A9SAV 9 A28SAV® A29SAV 
COMMON /FRONT/ QXQ (80>/SIDE/QYQC48) 

EQU I VALENCE! AM*QXQt&5>) 

COMMON! / BACK/ 


COMMONS /DUMMY S/ DUMMY C 100 ! 

LOGICAL ERRER ? F AN 

EQUIVALENCE ( F AM vDUMMY ( 11 ) ) » 1 1 SPOOL* DUMMY { 6 1 ) 

DATA A^ 0 RD/ 6 HMN 0 ZZL/ 

WORO^AdORD 
A 8 S AV= A 8 
A 9 S AV= A 9 
NQZM =0 
IMNQZ - 0 

IF (N 3 ZFLT*EQol* 0 R*M 0 ZFLT«EQ« 3 ) N 0 ZM »1 
IF CIDES®EQ® 1 ®OR»IAFTBN®GT® 0 «OR»NOZM*EQ ®11 IMNOZ^l 
IF ( I A FTBN * EQ© 0 » AND® N 0 ZFLT®EQ® 0 ! IMCD =0 
IF CIAFT 8 N®EQ» 1 * 0 R®M 0 ZFLT«EQ® 1 » 0 R®NJ 3 ZFLT®EQ«. 3 ! IMCD=i 
IF ( I MCD© EQ® 1 ) GO TO i 

CALL C3NVRG { 17 , H7t P 7* S7,FAR7*WG7, PI® I NMOZ » A8* P7R , T8* H8* P8 * S8* TS 8 » 
IPS8 f V3sAM8»I CON! 

GO TO ( 3 » 3 » 3 « 2 )* ICOM 

CALL CONDI V (T 7 sH 7 *P 7 *$ 7 ,FAR 7 ^G 7 sPUIMN 0 Z 9 A 8 *A 9 s P 7 R*T 8 ,H 8 *P 8 *$ 8 *T 
19 ? H 9 ,P 9 tS 9 ,TS 8 ,TS 9 ? PS 8 *PS 9 .V 8 * V 9 , AM 8 *AM 9 »IC 0 N) 

IMSHOC=ICON 

GO TO ( 4» 4t 4» 2 ) « X COM 

CALL ERROR 

19 = T 8 

H 9 -H 8 

P 9 =P 8 

S 9 =S 8 

TS 9 =TS 3 

P$ 9 =PS 8 

V 9 = V 8 

AM 9 =AM 8 

A 9 =A 8 

xmshg:>icon *3 

ERR { 6 ) =(P 7 R“P 7 )/P?R 

IF nSPOOL*EQ»l> ERR ( 3 !~ERR ! 65 

IF ( mOZ.EQ.l) HRITE C 6 * 5 ) A 8 * AM 8 , & 9 * &M 9 

RETURN 


IS 

17 

18 
19 


1T55 

,P55 

9 H55 

» S55 

9 T25 

? P25 

* H25 

*S25 

9 

20 

2WFB 

t WG55 

9 FAR55 

*WFD 

9 WG24 

s FAR24 

.PI 

t DUMB 

9 

21 

3T6 

9 P6 

*H6 

9 S6 

f T7 

9 P 7 

*H7 

? S7 

9 

22 

4T8 

f P8 

9 H8 

*S8 

, T9 

9 P9 

9 H9 

s S9 

S 

23 

5WG6 

*WFA 

<9 hJG 7 

9 FAR 7 

, ETAA 

9 DRAFT 

, V55 

9 V25 

9 

24 

6P$6 

*V6 

9 AM6 

t TS7 

9 PS7 

? V 7 

, AM7 

s A M2 5 

9 

25 

7TS8 

, PS 8 

9 V8 

? AM8 

j TS9 

§ PS9 

*V9 

9 AM9 

9 

26 

8VA 

*frd 

9 VJD 

v FGMD 

9 WJM 

sFGMM 

t FGPD 

t FGPM 

9 

27 

9FGM 

v FGP 

9 WFT 

9 WGT 

« FAR T 

a FG 

, FN 

9$FC 


28 


FORMAT C14H0N0ZZLE DESIGN, 10X8H 
1 A9=?E15©8$8H AM9=*E15*8J 

END 


A 8 =, E 15 ® 8 r 8 H 


AM 8 ==s E 15 ® 8 , 8 H 


29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
6 ? 
68 
69 
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IIBFTC ERROT DECK 

SUBROUTINE ERROR 
COMMON / ALL/ 


1 WORD 

$ IDES , JDES 

* KDES * MODE ,INIT * IDUMP *IAMTP 

f 

3 

2IGASMX 

* IOBURN* I AFTBN 

, IDCD » IMCD » I DSHDC* I MSHOC t NOZFLT 

» 

4 

3ITRYS 

« LOOPER»NOMAP 

*NUMMAP*MAPEDG 9 T0LALl*ERRf 6 > 


5 

COMMON 

/DESIGN/ 



6 

1PCNFGJ 

* PCNCGU , T4GU 

t DUHD1 9 DUMD2 * DELFG « DELFN » DELSFC 

f 

7 

2ZFDS 

* PCNFDS* PRFDS 

* ETAFDS 9 WAFDS *PRFCF * ETAFCF* WAFCF 

9 

8 

3ZCDS 

* PCNCDS * PRCDS 

9 ETACDS® WACDS *PRCCF * ETACCF * WACCF 

? 

9 

4T4DS 

? WFBDS » DTCODS 

, FTABDS»WA3CDS» DPCODS 9 DTCQCF 9 ETA 8 CF 

9 

10 

5TFHPDS 

* CNHPDSt ETHPDS 

9TFHPCF9CNHPCF,ETHP:F,DHHPCF»T20S 

* 

11 

6 TFLPDS 

*CNLPDS*ETLPDS 

,TFLPCF,CNLPCF,ETLPCF,DHLPCF»T21DS 

f 

12 

7T24DS 

* WFDDS * DTDUD5 

* ETADDS *WA23DS*DPDUDS, DTDUCF * E TADCF 

9 

13 

8T7DS 

sWFADS > DT AFDS 

,ETAADS,WG 6 [IDS,DPAFDS,DTAFCF,ETAACF 

9 

14 

9A55 

» A25 « A 6 

,A7 9 A8 9 A9 9 A2 8 , A29 

9 

15 

$P$55 

* AM55 * CVDNOZ 

»CVMNOZ, A 8 SAV , A9SAV , A28SAV , A29SAV 


16 

COMMON 

/ FRONT/ 



17 

1T1 

tPl t HI 

*S1 t T2 *P2 ,H2 t S2 

9 

18 

2T21 

» P21 • H21 

t S21 t T3 » P3 9 H3 ® S3 

9 

19 

3T4 

* P4 * H4 

* S4 * T5 * P5 *H5 * S5 

9 

2 D 

4T55 

* P55 * H55 

» S55 * BLF * BLC * BLDU * BLOB 


21 

5CNF 

,PRF ,ETAF 

9 WAFC » WAF 9 WA3 ,WG4 »FAR4 


22 

6 CNC 

? PRC »ETAC 

9 MACC 9 MAC 9 ETAB .DPCOM f DUMP 

? 

23 

7CNHP 

* ET ATHP* DHTCHP 

» DHTC , BLHP * WG5 .FAR5 tCS 

9 

24 

8 CNLP 

* ET ATLP* DHTCLP 

t DHTF 1 8 LLP ,WG55 ,FAR55 ,HPEXT 

9 

25 

9AM 

* ALTP * ETAR 

j ZF , PCNF ,ZC t PCNC ,WF 8 

t 

26 

STFFHP 

® TFFLP * PCBLF 

* PCBLC sPCBLDU.PCBLOBtPCBLHPtPCBLLP 


27 

COMMON 

/ SIDE/ 



28 

1XP1 

* XWAF *XWAC 

» XBLF t XBLDU ,XH3 ,DUMS1 9 DUMS2 

t 

29 

2XT21 

* XP2 1 , XH2I 

9 XS21 9 T23 9 P23 ,H23 ,S23 

* 

30 

3T24 

* P24 * H24 

t S24 9 T25 ,P25 ,H25 ,S25 

f 

31 

4T28 

* P28 * H28 

9 S28 9 T29 ,P29 ,H29 ,S29 


32 

5WAD 

, WFD * WG24 

9 F AR24 9 ETAD ,DPDUC , BYPASS , DUMS3 

* 

33 

6TS28 

e PS28 * V28 

9 AM28 9 TS29 ,PS29 ,V29 ,AM29 


34 

COMMON 

/ BACK/ 



35 

1XT55 

* XP55 « XH55 

9 XS55 9 XT25 • XP25 , XH25 s XS25 

* 

36 

2XWFB 

* XWG55 *XFAR55 

9 XWFD 9XWG24 »XFAR24,XXP1 9 DUMB 

f 

37 

3T6 

*P 6 * H 6 

9 S6 9 T7 »P7 9 H7 9 S7 

* 

38 

4T8 

,P 8 , H 8 

9 S 8 » T9 , P9 ,H9 9 S9 


39 

5WG6 

* WF A * WG7 

« FAR 7 9 ETAA ,3PAFT ,V55 ,V25 

t 

40 

6 PS 6 

* V 6 9 AM 6 

9 TS7 9 PS7 , V7 , AM7 ,AH25 


41 

7TS8 

* PS 8 *V 8 

* AM8 9 TS9 » PS9 ,V9 ,AM9 

* 

42 

8 VA 

t FRD ? V JD 

9 FGMD »VJW » FGHM ,FGPD ,FGPM 

* 

43 

9FGM 

« FGP * WFT 

9 WGT » FART 9 FG ,FN 9 SFC 


44 


COMMON /DUMMY S/ DUMMY C IOO) 

LOGICAL ERRER 
COMMON/ERER/ERRER 

DIMENSION TRASH! I 80) * TRASH2I 80) t TRA$H3f 48) *?RASH4C72! 

EQUIVALENCE (TRASH!* PCNFGU) * (TRASH2*T1 > * t TRASH3*XP1 ) » ( TRASH4 f XT5 5 ) 
DATA M0RD/6HC0MM0N/ 

ERRER= © TRUE * 

WRITE 16*2) WORD 
WORD=AWORD 

WORD* ZF* I 


WRITE C 6 * 3 ) 
WRITE (6*45 
WRITE (6*5) 
WRITE ( 6 * 6 ) 
WRITE (6*5) 
WRITE 16,4) 
WRITE €6*5) 
WRITE 16*4) 


( PCNF *ZC* PCNG*T4* MODE 
( TRASH! ( I), 1=1*80) 

{ TRASH 2 C n*I=l» 80 > 

S TRASH3C I 5*1=1* 48 ) 


45 

4$ 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
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oo vO o oo o ui n ^ o wo run ^ 


WRITE (6*5) CTRASH4C I ) » I =1* 72) 62 

WRITE f 6 * 4 ) 63 

WRITE (6t7) LOOPER 64 

IF { I D JMP ® EQ *0 ) GO TO 1 65 

WRITE C6*6) 66 

CALL SYG (2) 67 

I CALL ENGBAL 63 

RETURN 69 

70 

71 

FORMAT C28H0AN ERROR HAS BEEN FOUND IN *A6) 72 

FORMAT C1H0* A6,9X, 5E15«6*I4) 73 

FORMAT (2H0 ) 74 

FORMAT I 1H0 * 8E1 5® 6) 75 

FORMAT f 1 HI ) 76 

FORMAT (25HOFAILEO TO CONVERGE AFTER* I4*6H LOOPS) 77 

END 78 


IBFTC SYGS DECK 

SUBROUTINE SYG i ICON) 1 

DIMENSION WORD! 132) 2 

DATA DNED0L/6HS / 3 

GO TO (1*2)* ICON 4 

END FILE 8 5 

REWIND 8 6 

RETURN 7 

TERMINATE THE FILE 8 

WRITE 18*10} 9 

END FILE 8 10 

REWIND 8 11 

READ RECORD 12 

READ (9*11) SWORDUK 1 = 1*132) 13 

CHECK FOR 12 LEADING DOLLAR SIGNS 14 

DO 4 1=1* 12 15 

IF (WORD! I ) -QNEDDL ) 5*4*5 16 

CONTINJE 17 

RETURN 18 

CHECK FOR 6 TRAILING DOLLAR SIGNS 19 

DO 8 1=1*132 20 

1 = 1 21 

IF ( WORD ( I ) -GNEDOL ) 8*6*8 22 

K=I*5 23 

DO 7 J = I * K 24 

IF ( WORD! J ) -ONEDOL ) 8*7*8 25 

CONTINUE 26 

GO TO 9 27 

CONTINJE 28 

WRITE 16*12) 29 

RETURN 30 

PRINT LINE 31 

1=1-1 32 

WRITE 16*11) {WORDm *M=1* I) 33 

GO TO 3 34 

35 

36 

10 FORMAT (12H$$$$$$$$$$$$) 37 

11 FORMAT { 1 32A1 ) 38 

12 FORMAT ( 1H0 * 12HERR0R IN SYG) 39 

END 40 
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non 


$1 BFTC PERFOR DECK 

SUBR0JT1NE PERF 
COMMON / ALL/ 
1 WORD t IDES 


UUPIWV 9 ALL / 

1 WORD tl DES sJDES * KDES » MODE *INIT ? IDUNP 
2 1 GAS MX? IDBURN* I AFTBM? IOCD , 1HCD « IDSHQC* IMSHOC 
3ITRYS sLOOPER^NOMAP f NUMMAP* MAPEDG f TOL ALL * ERR ( 6 ) 
COMMON /DESIGN/ 

1PCMFGJ*PCNCGU ? T4GU 9 DUMDX ? DUMD2 ? DELFG f DELFN ? 
2ZFDS 9 PCNFDS«PRFDS 9 ETAFDS? WAFDS ® PRFCF * ETAFCF 9 
3ZCDS ? PCNCDS $ PRCDS f ETACDS 9 WACDS ?PRCCF f ETACCF 9 
4T4DS 9 WFBDS * DICODS $ ETABDS* WA3CDS?DPC0DS& DTCQCF 9 
5TFHPDS f CNHPDS* ETHPDS* TFHPCF* CNHPCF * ETHPCF 9 DHHPCF f 
6TFLPDS 9 CNLPDS 9 ETLPDS « TFLPCF» CNLPCF® ETLPCF* DHLPCF 9 


I A HIP 9 
MQZFLT 9 


DELSFC ? 
WAFCF t 
WACCF . 
ETABCF » 
T2DS 9 
I21DS 9 


LUnMjN / DUMMYS/ DUMMY I IDO) 

LOGICAL ERRERt FAN 

EQUIVALENCE C FAN?DUMMY fill ) 9 ( I SPOOL 9 DUMMY! 6 ) ) 
DATA A W0RD/6H PERF/ 

WORD= A WORD 

G=32 e I 74049 

CAPSF=2116&2170 

WFT=WFB*WFD*WFA 

WAT=WAF~BLOB 

WGT=WAT*WFT 

FART=WFT/ WAT 

va=am®:s 

FRD= VA»WAF/G 



1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


7T24DS 

9 WFDDS 

9 DTDUDS 

9 ETADDS 

9 WA23DS 

9 OPDUDS 

$ DTDUCF 

»ETA0CF 9 

13 

8T7DS 

9 WF ADS 

9 DTAFDS 

9 ETAADS 

9 WG 6 CDS 

9 DP AFDS 

9 DTAFCF 

? ETAACF® 

14 

9A55 

« A25 

9 A 6 

9 A7 

?A8 

t A9 

»A28 

? A29 9 

15 

SPS55 

*AM55 

tCVDNOZ 

9 CVMNOZ 

9 A 8 SAV 

9 A9SAV 

9 A28SAV 

9 A29SAV 

16 

COMMON 

/ FRONT/ 






17 

1 Tl 

9 PI 

*H1 

»S1 

1 12 

9 P2 

9 H 2 

9 S2 ® 

18 

2T21 

*P 21 

*H2l 

sS21 

*T3 

t P3 

*H3 

*S3 ® 

19 

3T4 

iP 4 

*H4 

*S4 

9 T5 

*P5 

9 H5 

9 S5 9 

20 

4T55 

*P55 

*H55 

«S55 

9 BLF 

®BLC 

® BLDU 

® BLOB * 

21 

5CNF 

®PRF 

?ETAF 

§ WAFC 

t WAF 

9 WA3 

®WG4 

y F AR4 9 

22 

6CNC 

9 PRC 

9 ETAC 

® WACC 

? WAC 

» ETAB 

® BPCQM 

« DUMF ® 

23 

7CNHP 

9 ET ATHP 

9 DHTCHP 

9 DHTC 

? BLHP 

9 WG5 

« FAR5 

9 C S 9 

24 

8CNLP 

9 ET ATLP 

9 DHTCLP 

9 DHTF 

9 BLLP 

9 WG55 

*FAR55 

®HPEXT ® 

25 

9AM 

9 ALTP 

? ET AR 

S ZF 

9 PCNF 

fZC 

yPCNC 

y WFB f 

26 

STFFHP 

9 TFFLP 

9 PC 8 LF 

t PCBLC 

9 PCBLDU 

s PCBL OB 

9 PCBLHP 

9 PCBLLP 

27 

COMMON 

/ SIDE/ 






28 

1XP1 

9 XW AF 

9 XWAC 

9 XBLF 

9 XBLOU 

®XH3 

*DUMSX 

*DUMS2 9 

29 

2XT21 

9 XP21 

? XH2X 

*XS2X 

9 T23 

t P23 

? H23 

t S23 , 

30 

3T24 

*P24 

9 H24 

*S24 

9T25 

*P25 

®H25 

9 S25 

31 

4T28 

*P28 

t H28 

9 S28 

*T29 

» P29 

® H29 

yS29 , 

32 

5 WAD 

t WF D 

?WG24 

?FAR24 

« ET AD 

9 OPDUC 

t BYPASS 

t DUMS3 9 

33 

6TS28 

f PS28 

t V28 

9 AM28 

*TS29 

f PS2-9 

*V29 

® AM29 

34 

COMMON 

/ BACK/ 






35 

1XT55 

$ XP55 

9 XH55 

t XS55 

9 XT 25 

9 XP25 

f XH25 

9 X S25 ® 

36 

2XWFB 

*XWG55 

9 XFAR55 

9 XWFD 

?XWG24 

9 XF AR24 

tXXPl 

y DUMB 9 

37 

3T6 

» P6 

*H6 

9 S 6 

1 1? 

9 P7 

® H7 

9 S7 ® 

38 

4T8 

»-PB 

§ H8 

9 S8 

9 T9 

*P 9 

9 H9 

9 S9 9 

39 

5WG6 

9 WF A 

t WG7 

9 FART 

9 ETAA 

f OP AFT 

®V55 

« V25 ® 

40 

6PS6 

9 V6 

9 AM6 

9 TS7 

9 PS7 

*V7 

*AM7 

s AM25 9 

41 

7TS8 

9 PS 8 

*V 8 

t AM8 

? TS9 

t PS9 

*V9 

? AM9 9 

42 

8VA 

9 FRD 

9 vjd 

9 FGMD 

9 VJM 

® FGMM 

® FGPD 

9 FGPM ® 

43 

9FGM 

9 FGP 

$ WFT 

t WGT 

9 FART 

t FG 

»F N 

« SFC 

44 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
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PTRAT3=P8/P1 62 

PRAT I3=PS9/P 1 63 

CALL PROCOM { FAR7.TS9, CS9, AK9»CP9» REX9, PHI S9»HS9) 64 

CALL FRASHO ( PTRATO» ARAT I0«CUMN0Z) 65 

CVMNOZ =CUMNOZ 56 

VJM=C/MNOZ*V9 67 

FGMM=/JM*WG7/G 68 

FGPM=CAPSF*(PS9-P1)*A9 69 

IF (IGASMX.GT.O.OR..MOT.FANJ 60 TO 1 70 

PRATI3=PS29/P1 71 

ARATI3=A29/A28 72 

PTRAT3*P28/P1 73 

CALL PROCOM l FAR24.TS29, CS9, AK29,CP9, REX9, PHI S9 , HS9 ) 74 

CALL FRASHO f PTRATO, ARAT I0,CU0N3Z ) 75 

CVDNOZ=CUDNOZ 75 

VJD=CVDN0Z*V29 77 

FGMD«VJD*WG24/G 78 

FGPD=:APSF*(PS29-P1)*A29 79 

1 FGM=FGMM+FGMD 80 

FGP=F3»M+FGPD 81 

FG=FG'HFGP 82 

FN=FG-FRO 83 

SFC = 3500.*WFT/FN 84 

FG=DELFG»FG 85 

FN*DEL FN*FN 86 

SFC=DELSFC*SFC 87 

CALL 3JTPUT 88 

CALL ERROR 89 

RETURN 90 

END 91 


$IBFTC OUTPDT DECK 

SU8R0JTINE OUTPUT 1 

COMMOM / ALL/ 2 

1H0R0 , IDES t JDES ,KDES » MODE ,INIT , I DUMP ,IAMTP » 3 

2IGASMX, IDBURN, IAFTBM, IOCD , IMCD , IDSHOC , IMSHOC, NOZFLT, A 

3ITRYS »LOOPER » NOMAP ,NUMMAP,MAPEDG,TOLALL, ARRl 6) 5 

COMMON /DESIGN/ 6 

1PCNFGJ» PCNC6U» T4GU ,DUMD1 »DUMD2 * DELFG » DELFN .DELSFC, 7 

2ZFDS f PCNFDS»PRFDS , ETAFDS, WAFDS ,PRFCF , ETAFCF , WAFCF * 8 

3ZCDS »PCNCDS»PRCOS , ETACDS, WACDS »PRCCF »ETACCF,WACCF » 9 

4T4DS tWFBDS , DTCODS , ETABDS, HA3CDS, DPCODS, DTCOCF , ETABCF , 10 

5TFHPDS,CNHPDS,ETHPDS,TFHPCF,CNHPCF,ETHPCF,DHHPCF,T2DS , 11 

6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF,DHLPCF,T21DS , 12 

7T24DS « WFDDS » DTDUDS , ETADDS, WA23DS, DPDUDS, DTDUCF , ETADCF » 13 

8T7DS * WF ADS , DTAFDS , ETAADS, WG6CDS, DP AFDS, DTAFCF , ETAACF, 14 


9A55 

*A25 

,A 6 , A7 

9 A 8 

# A9 

t A28 

t A29 

f 

15 

SPS55 

t AM55 

.CVDNOZ, CVMNOZ 

9 A 8 SAV 

9 A9SAV 

9 A28SAV 

9 A29SAV 


16 

COMMON 

/ FRONT/ 






17 

1T1 

*P1 

tHl 9 SI 

912 

t P2 

*H 2 

*S2 

9 

18 

2T21 

t P21 

t H21 $ S21 

9 T3 

tP3 

t H3 

» S3 

9 

19 

3T4 

*P4 

®H4 *S4 

*T5 

*P5 

t H5 

*S5 

9 

20 

4T55 

$P55 

9 H55 *S55 

9 BLF 

98 LC 

9 BLOU 

t BLOB 

9 

21 

5CNF 

* PRF 

9 ETAF 9 WAFC 

* WAF 

t WA3 

$ WG4 

*FAR4 

# 

22 

6 CNC 

t PRC 

9 ET AC » WACC 

? WAC 

t ETAB 

s DPCOM 

9 DUMP 

9 

23 

7CNHP 

9 ET ATHP 

9 DHTCHP 9 DHTC 

9 BLHP 

t hfG5 

t F AR5 

* cs 

« 

2k 

8 CNLP 

* ET ATLP 

9 DHTCLP 9 DHTF 

9 BLLP 

**JG55 

? F AR55 

9 HPEXT 

f 

25 

9AM 

$ ALTP 

1 ? ET AR 9 ZF 

9 PCNF 

tZC 

tPCNC 

9 WF 8 

9 

26 
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STFFHP t TFFLP *PCBLF *PCBLC * PCBLDU* PCBLOB* PCBLHP* PCBLL P 27 

COMMON! / SIDE/ 28 

IXP1 *XWAF * XWAC *XBLF »XBLDU • XH3 *DUMS1 *DUMS2 t 29 

2XT21 *XP2l ? XH21 *XS21 *T23 *P23 *H23 *S23 , 30 

3T24 * P24 ,H24 *S24 *T25 *P25 *H25 *S25 ? 31 

4T28 *P28 u H28 *S28 *T29 *P29 *H29 *S29 t 32 

5WAD ? WFD 9 WG24 ? FAR24 * ETAD *DPDUC 9 BYPA$S*DUMS3 9 33 

6TS28 f PS28 ,V28 * AM28 *TS29 f PS29 *V29 *AM29 34 

COMMON / BACK/ 35 

1XT55 9 XP55 * XH55 *XS55 *XT25 *XP25 *XH25 *XS25 f 36 

2XWFB f XWG55 * XFAR55 9 XWFD *XWG24 *XFAR24*XXP1 * DUMB 9 37 

3T6 f P 6 9 H 6 9 S 6 9 17 *P7 *H7 *S7 * 38 

4T8 *P8 9 H 8 9 S 8 9 T9 *P9 f H 9 »S9 9 39 

5WG6 tWFA 9 WG7 * FAR? 9 ETAA * DPAFT *V55 *V25 f 40 

6PS6 9 V6 9 AM6 *TS7 *PS7 *V7 9 AMT *AM25 9 41 

7TS8 9 PS 8 ,V 8 9 AM 8 9 TS9 *PS9 * V9 f AM9 9 42 

8VA f FRO f VJD $ FGMD 9 VJM *F GMM 9 FGPD * FGPM 9 43 

9FGM 9 FGP * WFT * WGT , FART f FG * FN ,SFC 44 

COMMON / DUMMYS / DUMMY ( 100) 45 

EQUIVALENCE ( T4PBL * DUMMY { 2 ) ) 9 ( T41 9 DUMMY ( 3) ) 46 

DIMENSION W(5*4) * ANS U 80 > * ANS2! 80) * ANS3( 48 > ,AN$4( 72) 47 

EQUIVALENCE ( ANSI , PCNFGU ) , ( ANS2* T1 ) * ( AMS3 * XP 1 ) , ( ANS4* XT55 ) 48 

DATA A W0RD1 » AW0RD2/6H0UTPUT » 6HCQMM0N/ 49 

DATA ( W ( 1 * I) * 1=1 * 4) / 6HSUBS0N 9 6 HIC OD* 6 H N0ZZL*6HE / 50 

DATA f W(2* n*I=lt 45/6HSH0CK *6HINSIDE*6H C-D N* 6H0ZZLE / 51 

DATA (rf(3t I)t I=1,4)/6H$H0CK * 6H0UTSXD * 6HE C-D ? 6HN0ZZLE/ 52 

DATA ( W 1 4 * I ) *1=1,4) /6HSUB$0N,6HIC C0N*6HVERG, ,6HN0ZZLE/ 53 

DATA ( W(5,I 5 *I = 1*4)/6HS0NIC v 6HC0NVER 9 6 HGENT N» 6H0ZZLE / 54 

W0RD=AW0RD1 55 

IF { I DBURN ® GT,0) GO TO 2 56 

IF ( I AFTBN*GT *0) GO TO 1 57 

WRITE (6*7) WORD? AMf ALTP,T4,ETAR 58 

GO TO 3 59 

1 WRITE ( 698 ) WORD f AM* ALTP *T4* T7* ETAR 60 

GO TO 3 61 

2 WRITE (6*9) WORD? AM* ALTP*T4* T24*ETAR 62 

3 CALL :3N0UT (2) 63 

WRITE (6*10) CW( I MS HOC* I ) * 1=1*4) *FG*FN*SFC 64 

IF ( 1 3 ASMX» GT * 0 ) GO TO 4 65 

WRITE ( 6*111 f W( IDSH0C*I)*I=1*4) 66 

4 WRITE (6*12) LOOPER 67 

IF ( IDES, NE® 1 ) GO TO 5 68 

WORQ=A W0RD2 69 

WRITE (6*13) W0RD*ZFfPCNF*ZI*PCNI*ZC*PCMC*T4* MODE 70 

WRITE (6*14) 71 

WRITE (6*15) ( ANSl(I)fI*lt80) 72 

WRITE (6*14) 73 

WRITE (6*15) (ANS2CI 1*1=1*80) 74 

WRITE (6* 14) 75 

WRITE (6*151 tANS3m* 1 = 1*48) 76 

WRITE (6*14) 77 

WRITE (6*15) CANS4U) * 1=1*72) 78 

WRITE 16*16) 79 

IF ( IDES ® EQ® 1 ) GO TO 6 80 

5 CONTINUE 81 

A 8 = ABS AV 82 

A9= A9S AV 83 

A28 = A2 8 S AV 84 

A29- A2 9S AV 85 

IF ( I DUMP ,NE * 2 ) GO TO 6 86 

WRITE (6*16) 87 

CALL SYG (2) 88 
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6 


CALL ENGBAL 
RETURN! 


FORMAT 1 1 HB® A6$ 14X7H AM=* FT* 3 • 6X7H ALTP= * F7* 0* 6X7H T4=*F8«2 

1*25X7^ ETAR= f F7«4I 

FORMAT !1HB*A6*14X7H AM** FT* 3* 6X7H ALTP = * F7® O* 6X7H T4=®F8«2 

1 9 5X7H T7= 9 F 8 ® 2 1 5X7H ETAR= ? F7«4J 

FORMAT ( IHB? A6« 14X7H AM=* F7« 3* 6X7H ALTP= ,F7* 0* 6X7H T4= ? F8,2 

1 9 5X7H T24=*F8*2*5X7H ETAR=,F7*4> 

FORMAT ( 6H0MAIN *4A6* 9X3HFG=*F9a2* 18X3HFM=® F9« 2* l8X4HSFC=sF8® 5 } 
FORMAT C 6 H DUCT *4A5) 

FORMAT U6H0C0NVERGED AFTER® I4» 6 H L00PS*/*1H1) 

FORMAT (IH sA6®9X*7E15*6 9 I4S 
FORMAT CIH ) 

FORMAT CIH ®8E15*6) 

FORMAT 1 1H1 ) 

END 


SIBfTC CONOJF DECK 

SUBROJTINE CONOUT CI( 
COMMON / ALL/ 
iWORD 9 IDES » JOES 
2 1 GAS MX ^ ID BURN t IAFTBM 
3ITRYS 9 LOOPERt NOMAP , 


9 KDES 9 MODE $ INIT 9 I DUMP 9 1 AMTP ? 
t IDCD 9 IMCD 9 IDSHOC 9 I MSHQC * NOZFLT * 
« NUMMAP® MAPEDG® TOLALL^ERR ( 6 ) 


COMMON /DESIGN/ 




6 

IPCNFGJ* PCNCGU*T4GU 

9 DUMDI t DUMD2 

9 DELFG 

tDELFN f DELSFC# 

7 

2ZFDS *PCNFD$ f PRFDS 

9 ETAFDS® WAFDS 

9 PRFCF 

9 ETAFCF 9 WAFCF 9 

8 

32CDS 9 PCNCDS 9 PRCOS 

9 ETACDS® WACDS 

9 PRCSF 

t ETACCF 9 WACGF 9 

9 

4T4DS 9 WFBD5 ®DTCODS 

*ETABDS 9 WA3CD$ 

« DPCODS 

9 DTCOCF 9 ETABCF 9 

10 

5TFHPDS *CNHPDS* ETHPDS 

9 TFHPCF 9 CNHPCF 

9 ETHPCF 

t DHHPCF 9 T2DS 9 

11 

6 TFLPDS 9 CNLPDS 9 ETLPDS 

9 TFLPCF S CNLPCF 

9 ETLPCF 

9 DHLPCF f T21DS « 

12 

7T24DS « WFDDS ® DTDUDS 

9 ETADDS® WA23DS 

9 DPDUDS 

9 DTDUCF 9 ETADCF 9 

13 

8T7DS *WFADS *DTAFDS 

? ETAAOS* WG 6 CDS 

® DPAFDS 

9 DTAFCF 9 ETAACF 9 

14 

9A55 « A25 ,A 6 

®A7 ®A 8 

t A9 

« A28 9 A29 9 

15 

$PS55 9 AM55 tCVDNOZ 

9 CVMNOZt A8SAV 

t A9SAV 

t A28SAV*A29$AV 

IS 

COMMON / FRONT/ 




IT 

III tPl t Hl 

•SI 912 

®P2 

» H2 ®S2 9 

18 

2T21 f P2 1 *H21 

fS21 t TB 

f P3 

t H3 9 S3 9 

19 

3T4 9 P4 t H4 

9 S4 9 T5 

*P5 

9 H5 *$5 9 

2D 

4T55 ®P55 t H55 

9 S55 9 BLF 

9 BLC 

9 BLDU t BLOB 9 

21 

5CNF f PRF 9 ET AF 

*WAFC f WAF 

®WA3 

9 WG4 t FAR4 9 

22 

6 CNC f PRC 9 ET AC 

t W ACC tWAC 

9 ET AB 

9 DPCDM f DUMP 9 

23 

7CNHPM f ET ATHPt DHTCHM 

9 DHTC f 8LHP 

®WG5 

9 F AR5 ,CS 9 

24 

8CNLPM f ETATLPt DHT CLM 

t DHTF 9 BLLP 

f WG55 

9 F AR55 t HPEXT * 

25 

9AM 9 ALTP « ET AR 

®ZF *PCNF 

«ZC 

9 PCNC 9 WFB 

26 

$TFFHPM,TFFLPM 9 PCBLF 

9 PCBLC ? PCBLDU 

9 PCBLOB 

? PCBLHP 9 PCBLLP 

27 

COMMON / SIDE/ 




28 

1XPI t XWAF 9 XHAC 

9 XBLF 9 XBLDU 

®XH3 

9 DUMS! 9 DUMS2 9 

29 

2XT2I 9 XP2 1 *XH21 

»XS21 9 T23 

9 P23 

9 H23 t S23 , 

30 

3T24 9 P24 H24 

9 S24 § T25 

t P25 

9 H25 ? S25 f 

31 

4128 9 P2B 9 H28 

9 S28 *T29 

®P29 

t H29 9 S29 

32 

5 WAD *WFD *WG24 

t FAR24 9 FT AD 

9 DPDUC 

t BYPASS § DUMS3 9 

33 

6TS23 9 PS 28 .¥28 

. AM28 *TS29 

9 PS29 

f ¥29 $ AM29 

34 

COMMON / BACK/ 




35 

1XT55 *XP55 9 XH55 

*XS55 ®XT25 

®XP25 

9 XH25 9 XS25 9 

36 
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2XWF8 * XWG55 ,XFAR55,XWFD , XWG24 ,XFAR24,XXPi .DUMB » 37 

3T6 , P6 ,H6 ,S6 , T7 ,P7 ,H7 ,S7 * 33 

4T8 ,P8 ,H8 ,S8 »T9 ,P9 »H9 ,S9 , 39 

5WG6 » WF A »WG7 » FAR7 « ETAA » DP AFT »V55 , V25 , 40 

6PS6 ,V6 , AM6 ,TS7 , PS7 ,V7 * AM7 ,AM25 , 41 

7TS8 , PS8 ,V8 » AM8 ,TS9 ,PS9 ,V9 ,AM9 , 42 

8VA ,FRD » VJD , FGMD ,VJM ,FGMM » FGPD » FGPM , 43 

9FGM t FGP » WFT »WGT , FART »FG ® F M ,SFC 44 

COMM O'!/ DU MMYS/ DUMMY! 100) 45 

EQUIVALENCE ( TFFHP, DUMMY! 12 ) ) , ! CNHP , DUMMY ( 131) , ! DHTCHP, DUMMY ( 1 4 > ) 46 

EQUIVALENCE (TFFLP, DUMMY! 15) ) » < CNLP , DUMMY! 1 6 )) , ! DHTCLP, DUMMY ( 1 7 > ) 47 

DIMENSION PARAM(380» ,W0RDY!3 80), I0UTU03) ,A0UT(6) ,W0UT!6) 48 

EQUIVALENCE (PARAM.PCNFGU) 49 

DATA l WORDY! I ) , 1*1,98)/ 50 

16HPCNF 3U» 6HPCNCGU, 6HT4GU , 6HDUMD1 .6HDUMD2 , 6HDELFG »6HDELFN , 51 

26HDELSFC* 6HZFDS , 6HPCNFDS , 6HPRFDS , 6HETAFDS , 6HWAFDS »6HPRFCF , 52 

36HETAF:F»6HWAFCF , 6HZCDS , 6HPCNC0S. 6HPRCDS .6HETACDS.6HWACDS , 53 

46HPRCC F » 6HETACCF, 6HWACCF ,6HT4DS ,6HWFBDS , 6H0TC0DS , 6HETAB0S, 54 

56HW A3S DS »6HDPC0DS»6HDTC0CF,6HETABCF»6HTFHPDS* 6HCNHPDS, 6HETHPDS » 55 

66HTFH?CF,6HCNHPCF,6HETHPCF,6HDHHPCF,6HT2DS ,6HTFLPDS,6HCNLPDS» 55 

76HETLPDS,6HTFLPCF»6HCNLPCF» 6HETLPCF, 6HDHLPCF *6HT21DS »6MT24DS , 57 

86HWFD3S , 6HDTDUDS, 6HETADDS , 6HWA23DS, 6HDPDUDS , 6HDTDUCF , 6HETADCF , 58 

96HT7DS » 6HWFADS , 6HDTAFDS , 6HETAADS , 6HWG6CDS, 6HDPAFDS, 6HDTAFCF , 59 

$6HETAA:F,6HA55 ,6HA25 ,6HA6 , 6HA7 ,6HA8 ,6HA9 , 60 

S6HA28 » 6HA29 »6HPS55 ,6HAM55 , 6HCVDN0Z ,6HCVMN0Z,6HA8SAV , 51 


S6HA9SM 

* 6HA28S AV 

« 6 H A29$ AY 

t 6HT1 

96 HPI 

• 6HH1 

« 6HS1 

9 

62 

$6HT 2 

t 6HP2 

9 6HH2 

$ 6HS2 

96HT21 

*6HP21 

*6HH21 

f 

63 

$6HS21 

* 6HT3 

9 6HP 3 

1 6HH3 

96HS3 

,6HT4 

9 6HP4 

/ 

64 

DATA ( WORDY C I } ? 1 = 

999 189)/ 






65 

16HH4 

* 6HS4 

« 6HT 5 

9 6HP5 

*6HH5 

*6HS5 

96HT55 

9 

66 

26HP55 

9 6HH55 

9 6HS55 

9 6HBLF 

9 6HBLC 

9 6H8LDU 

9 6 HBLQB 

9 

67 

36HCNF 

f 6HPRF 

? 6HETAF 

t 6HWAFC 

t 6HHAF 

,6HWA3 

9 6HWG4 

9 

68 

46HF AR4 

9 6HCNC 

9 6HPRC 

? 6HETAC 

? 6HWACC 

9 6 HWAC 

9 6HETAB 

t 

69 

56HDPCDM 

» 6HDUMF 

9 6HCNHPM 

9 6HETATHP 

96 HDHT: 

HMt 6 HDHTC 

96 HBLHP 

9 

70 


66HWG5 1 6HFAR5 »6HCS , 6HCNLPM ,6HETATLP,6HDHTCLM,6HDHTF , 71 
76HBLLP » 6HWG55 , 6HF AR55 » 6HHPEXT ,6HAM , 6HALTP , 6HETAR » 72 
86HZF , 6HPCNF ,6HZC ,6HPCNC ,6HWFB ,6HTFFHPM,6HTFFLPM, 73 
96HPCBL F * 6HPCBLC » 6HPCBLDU, 6HPCBL0B, 6HPCBLHP , 6HPCBLLP , 6HXP1 , 74 


S 6 HXWAF 

9 6 HXWAC 

« 6 HXBLF 

1 6 HXBLDU 

9 6HXH3 

96 HDUMSI 

t 6HDUMS2 

9 

75 

$6HXT2L 

96HXP21 

96HXH21 

96HXS21 

t6HT23 

? 6HP23 

9 6HH23 

f 

76 

S6HS23 

t 6HT24 

9 6HP 24 

9 6HH24 

9 6H524 

96HT25 

96HP25 

9 

77 

$6HH25 

*6HS25 

» 6HT28 

9 6HP28 

9 6HH28 

? 6HS2 8 

1 6HT29 

/ 

78 

DATA i WORDY l I )* I- 

190 9 280 ) / 






79 

I6HP29 

t6HH29 

9 6HS29 

9 6HWAD 

9 6HNFD 

9 6HWG24 

? 6HFAR24 

? 

80 

26HETA0 

? 6H0PDUC 

96 HBYPASS 

96HDUMS3 

® 6HTS28 

9 6HPS28 

1 6HV28 

9 

81 

36HAM2S 

96HTS29 

1 6HP S29 

t 6HV29 

9 6HAM29 

96HXT55 

« 6HXP55 

t 

82 

46HXH55 

9 6HXS55 

t6HXT25 

f 6HXP25 

9 6HXH25 

»6HXS25 

9 6HXWF8 

9 

83 

56HXWG55 

? 6HXFAR55 

t 6HXWFD 

f 6HXWG24 

t 6HXFAR24 

9 6HXXP1 

9 6HDUMB 

? 

84 

66HT6 

96 HP 6 

$ 6HH6 

96 HS& 

*6HT7 

9 6HP 7 

> 6HH7 

9 

85 

76HS7 

9 6HT8 

9 6HP8 

f 6HH8 

96 HS 8 

96HT9 

? 6HP9 

9 

86 

86HH9 

? 6HS9 

1 6 HWG 6 

9 6 HWFA 

96HWG7 

t 6HFAR7 

f 6HETAA 

9 

87 

96HDPAFF 

? 6HY55 

t 6HV25 

1 6 HPS 6 

? 6HY6 

f 6HAM6 

9 6HTS7 

f 

88 

$6HPS ? 

9 6HV7 

9 6HAH7 

9 6HAH2 5 

9 6HTS8 

* 6 H P S 8 

• 6HV8 

9 

89 

S6HAM8 

*6HTS9 

f 6HP S9 

1 6HV9 

t &HAM9 

t 6HVA 

9 6 HFRD 

9 

90 

S6HVJD 

9 6HFGMD 

96 HVJM 

? 6HFGHM 

9 6 HFGPD 

9 6 HFGPH 

9 6HFGM 

f 

91 

$6HFGP 

9 6 HWFT 

1 6 HWGT 

? 6HF ART 

9 6HFG 

96 HFH 

9 6 HSFG 

/ 

92 

DATA ( WORDY ( ! ) « I - 

281 9 297 ) / 






93 

111*0. 

? 6HTFFHP 

f 6HCNHP 

f 6HDHTCHP 

t 6HTFFLP 

« 6HCNLP 

, 6MDHTCLP/ 

94 


DATA THEEND, BLANK, LIMIT/ 6HTHEEND, 6H ,297/ 


95 


GO TO (1,6), ICON 


96 
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C *** INPUT SECTION 97 

1 DO 4 N=l,103 98 

NUM=N 99 

READ (5,11) AIN, CHANGE 100 

IF ( AIN.EQ.THEEND) SO TO 5 101 

DO 2 J=l, LIMIT 102 

JJ=J 103 

IF ( AI M.EQ. WORDY ( J ) ) GO TO 3 104 

2 CONTINJE 105 

WRITE (6,12) AIN 106 

GO TO 4 107 

3 I OUT l NUM) * J J 108 

IF ( CHANGE »NE« BLANK) WORDY ( JJ > =CHAN3E 109 

4 CONTINUE 110 

WRITE (6, 13) 111 

5 NUM=NJ M-l 112 

RETURN 113 

C »** OUTPUT SECTION 114 

6 IF (NUM.EQ.l) GO TO 10 115 

N=NUM 116 

J=6 117 

DO 9 1=1, NUM»6 118 

IF (N.ST.6) GO TO 7 119 

J*N 120 

7 N=N-6 121 

DD 8 <=1,J 122 

L= I +K- 1 123 

M* I OUT ( L ) 124 

WOUT 1 K ) =WORDY ( M ) 125 

8 AOUT ( X )=PARAM ( M ) 126 

WRITE (6,14) { WOUT ( < ) »K=1» J ) 127 

WRITE (6,15) ( AOUT ( K ) »K= 1, J ) 128 

IF (N.LE.O) GO TO 10 129 

9 CONTINUE 130 

10 RETURN 131 

C 132 

C 133 

11 FORMAT (A6,6X,A6) 134 

12 FORMAT (10H0THE WORD ,A6,26H NOT FOUND IN COMMON ARRAY) 135 

13 FORMAT ( 22H0ERR0R IN CONOUT INPUT) 136 

14 FORMAT (1H , 25XA6, 5( 9XA6 ) ) 137 

15 FORMAT (1H ,20X6E15.6> 138 

END 139 


$IBFTC THCONP DECK 

SUBROUTINE THCOMP ( PR , ET A, T, H, S,P , TO, HO, SO, PO) 1 

PO=P»PR 2 

TP=T*PR**0. 28572 3 

DO 1 1=1,25 4 

CALL THERMO { PO, HP , TP , SP »X 1 , 0,X2, 0) 5 

DELS = S P-S 6 

IF ( A3S(DELS).LE.0.00005*S> GO TO 2 7 

1 TP=TP/EXP(4,*DELS) 8 

CALL ERROR 9 

2 HO=H-M ( HP-H ) /ETA ) 10 

CALL THERMO ( PO, HO, TO , S0,X1 , 0, X2, 1 > 11 

RETURN 12 

END 13 
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$1 BFTC PROCOM DECK 

SUBRQJUNE PRGCDM t FARX* TEX 9 CSEX*AKEX*CPEX« REX* PH I 9 HEX) 1 

IF CFARXsLEoO, 067623) GO TO 1 2 

FARX = 0 # 067623 3 

1 IF ( TE X *GE«300# ) GO TO 2 4 

TEX-330* 5 

2 IF ( TEX«LE®4000® ) GO TO 3 5 

TEX=4000© 7 

3 IF (FARX®GE*0#0) GO TO 4 8 

FARX=0 » 0 9 

AIR PATH 10 

CPA* 1 ( HI ( 1© 0115540E-25^TEX- 1® 4526770E-21}^TEX-«-7» 621576? E-l 8 S^TEX-* 11 

11® 51 28 259E-14I *TEX~6 ® 717 837 6 E- 12 )*TEX^6»5519486£~08) &TEX-*5® 15368 79 12 

2E-05 )»FEX + 2«5020051E“01 13 

HEA= { f t (in 1 .2544425E“26*TEX-2® Q752522E-22 } &TEX*1 ® 2 70263 0E~*1 8 ) »TEX 14 

1-3® 02565I8E-15 ) *TEX~ 1 * 6794594E-12 ) »TEX* 2*183982 6E- 08 )» TEX-2® 576844 15 

20E-05) *TEX+2 © 5020051 E-01)*TEX~1©7558886E*00 15 

SEA=*2 ® 502005 1E-01^ A LOG( TEX )*( ( ( ( U 1© 4450767E-26 ®?EX-2* 421 1288F-22 17 

1 )*TEX*1©5243153£~18) *TEX-3©7820648E-15) ® TEX-2© 2392790E-12 )«TEX*3©2 IB 

2759743 E-08)*TEX-5®1576879E-05)*TEX*4*5432300E-02 19 

IF { FARX® LE» 0® 0 ) GO TO 5 20 

FUEL/AIR PATH 21 

CPF=U U U7#26787 10E-25*TEX-1« 3335668E-20)*¥EXn# 0212 9I3E- 16 t* TEX- 22 

14® 2051 104E-13)*TEX*9© 9686793 E~ 10 J*TEX-U3??1901E-06)*TEX + U 22 58630 23 

2E— 03 ) aTEX+7® 38 16638E-02 24 

HEF=U t ( I ( ( 9*0848388 E-26*TEX-la9050949E~2i MTEX+1 © 7021 525E-17 >* TEX 25 

i-8©4132208E-14)*TEX*2®4921698E-l0) ^TEX-4® 5906332E-07 }&TEX* 6*129315 26 

20E-04S »TEX+7«3816638E-02)»TEX+3®0581530E^01 27 

SEF*+7#3816638E-02*ALQG{TEX) + ( (Uf ( 1 * 03 82670E-25»TEX-2® 222611 8E-21 2 8 

n*?EX4-2®0425826E-17>*TEX-l«0512776E-13)*TEX*3® 3228928£-10 5 *TEX-6®8 29 

2859505 E~07)*TEX*1© 22 58630E-03 ) * TEX*6® 483398E-G 1 30 

CPEX=« CPA+FARX*CPF)/( U + FARX ) 31 

HEX=HEA+FARX*HEF)/f 1®*FARX) 3 2 

PHI=<SEA+FARX*SEFS/(1*+FARX) 33 

AMW = 28 ® 97- » 946186*FAR X 34 

REX=X# 986375/AMW 35 

AKEX=CPEX/ (CPEX-REX) 35 

CSEX-SQRT(AKEX*REX»TEX»25031«375 37 

RETURN! 38 

END 39 


BFTC SERCH DECK 

SU8R0J FINE SEARCH ( P 9 A 9 B * D* AXt NA* BX« CX 9 D X* NQ* NAM f MOM 9 NlCODE ) l 

DIMENSION AX (NAM 5 *BX I NAM 9 NO M ) * CXI NAM*N3M ) 9 DXCNAM*NOM) *N0INAM)*Q(9S 2 

*** NEEDS SUBROUTINE AFOUIR 3 

*** AX AND BX MUST BE STORED LO TO HI 4 

*** P=INPJf PROPORTION BETWEEN 0*0 AND 1*0 5 

IF NOT INPUT * P MUST EQUAL -1* 6 

*** NC00E*00 OK 7 

NC0DE-01 A LO 8 

NC0DE*02 A HI 9 

NCODE=07 ERROR 10 

NCODE* 10 B LO 11 

NCODE* 20 B HI 12 

NCODE*0 13 

C=0® 14 

D=0® 15 
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C *** FIND A 16 

DO 1 1=1? N A 17 

IH=I 18 

IF ( A'LT.AXU) ) GO TO 2 19 

1 CONTINUE 20 

IF ( A® ST® AXC IH) ) NC3DE=2 21 

A = AXUrti 22 

GO TO 3 23 

2 IF ( H®GT»i> GO TO 3 24 

NCODE= i 25 

IH=2 26 

A=AX(i) 2? 

3 I L= l H- i 28 

LI MH=N|0 ( I H I 29 

LIML=MO(IL) 3D 

C *** FIND B 31 

PRMM A-AXUL) )/( AXUH>-AXI IL ) > 3 2 

PP=P 33 

IF ( P® SE ® 0® ) GO TO 6 3k 

BL = BXC I Lt 1 ) -s-PRM* ( BXf IH, 1 )-BX ( !L,1 )) 35 

BH= BX( I L * L I ML ) +PRM*{ BXl IH,LIMH)-BXUL»LIML )) 35 

IF ( 3* GE® BL } GO TO k ' 37 

NCODE= NCQDE+10 38 

8=BL 39 

GO TO 5 40 

4 IF ( B® LE® BH ) GO TO 5 41 

NCODE= NC0DE+20 42 

B=BH 43 

5 PP=0® 5 44 

012)0* 45 

Q C 3 ) O ® 46 

6 BH=PP* (BX ( IH*LIMH)-BX{ IH® 11 )*BX( IH® 1) 47 

BL-PP* C BX ( IL*LIML >-BX ( IL ,1 ) ) +BXC IL » 1) 48 

DO 7 J=2*LIMH 49 

JH= J 50 

IF { B-J ® LT ® BX ( IH* J ) ) GO TO B 51 

CONTINUE 52 

JL= JH~1 53 

DO 9 K = 2 ® L I ML 54 

KH=K 55 

IF ( BL • LT » BX ( I L ® K ) ) GO TO 10 56 

9 CONTINUE 57 

10 KL=KH~1 58 

PR= ( BX ( IH® JL )-BH ) / 1 BX C I H* JH l-BXS I H* JL ) ) 5 9 

CH=CX I IH® JL)-PR*(CXI IH, JHI-CXf IH, JL) I 60 

DHOX( I H® JL ) -PR* ( DX( I H f JH) ~DX ( I H* JL ) ) 61 

PRs(B<(IL,KL)-BL )/(BX( IL,KH)-BX( IL, KL)> 62 

CL=CX ( IL*KL)-PR»{CX{ IL*KH)-CXC IL®KLH 63 

DL=DX( l L* KL ) -PR* ( 0X( IL ? KH)-DXULt KL) ) 64 

BT=8Lf PRMMBH-BL) 65 

CT=CL*PRM«C CH-CL ) 66 

DT=DL*PRM*C DH-DU 67 

IF ( P» SE®0® ) GO TO 13 68 

D I R = S3 RT { 3/BT ) 69 

ERR=C3“BT)/B 70 

CALL AFOUIR ( Q ( 1 ), PP , ERR * 0* * 25* * 0® 001 * D I R , PT , I CON ) 71 

GO TO I 11*13*121* ICON 72 

11 PP=PT 73 

IF ( P 5 ® LT © 0 ® ) PP*0. 74 

IF (P>*GT®1®) PP*1. 75 

GO TO 6 76 

12 NCODE= 7 77 
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13 


B=BT 78 
C=CT T9 
D=DT 80 
RETURN 81 
END 82 


$ I8FTC MAPBAK DECK 

SUBROUTINE MAPBAC { HAP, MAPGQ*TFF$* TFF , CNS»CN,PCN, T * MODE* ISO, NUM) 1 

DATA *H*WL*WT s WS/6H H*P« ,6H L*P* *6 H TFF *6HSPEED / 2 

IF (NJ^GTeO) GO TO 1 3 

NUMH=0 A 

NUML*0 5 

1 IG0=MAPGO*3* (MAP-1) 6 

GO TO (2*3*5*6*7*91* IGO 7 

C HIGH PRESSURE TURBINE 8 

2 TFF=TFF+0® 1* { TFF-TFFS ) 9 

WRITE 18*10) WH* WT * TFFS* TFF 10 

RETURN 11 

3 CN*CN+0*05MCN-CNS) 12 

IF ( MODE«NE® 1 ) PCN^PCN* ( CN/CNS ) 13 

IF ( MODE* EQ* I ) T=T*(CNS/CM)**2 14 

WRITE (8*10) WH* WS*CNS*CM 15 

IF ( NJMH® GT » 2) GO TO 4 16 

NUM=1 17 

18 

RETURN 19 

4 OELCM= CN-CNS 20 

IF (DELCN.GE.O*) RETURN 21 

TFF = TFF*(U*DELCN/CM) 22 

WRITE (8,11) WH* WT* TFFS* TFF 23 

RETURN! 24 

5 TFF-TFF+O# 1* ( TFF-TFFS ) 25 

WRITE 18*10) WH* WT * TFFS* TFF 26 

GO TO 3 27 

*** LOW PRESSURE TURBINE 28 

TFF=TFF^O* 1# C TFF-TFFS I 29 

WRITE (8*10) WL , WT * TFFS* TFF 30 

RETURM 31 

CN=CN4* 0*05*1 CN-CNS ) 32 

IF I NODE© NE*3) PCN=PCN*( CM/CMS ) 33 

IF i MODE® EQ»3 ) T=*T*C CNS/CN ) 34 

WRITE (8*10) WL *W$*CNS* CN 35 

IF C NJML® GT® 2) GO TO 8 36 

NUH= 1 37 

NUML-N! JML + 1 38 

RETURNS 39 

DELCN- CN-CNS 40 

IF ( DELCN*GE»0» ) RETURN 41 

TFF = TFFM 1® *DELCN/CN ) 42 

WRITE 18*111 WL * WT *TFFS* TFF 43 

RETURNS 44 

TFF=TFF*0®l#f TFF-TFFS ) 45 

WRITE 18*10) WL * WT® TFFS* TFF 46 

GO TO 7 47 

48 

49 

10 FORMAT ( 1H0? A6 * 12HTURB INE MAP * A6® 4HWAS=® EX3* 6 *10H AND NOW=*E13®6 50 

1 * ) 51 

87 



^OOOO-^J O' U1 O ^ U) IM *- o ooo 


11 FORMAT ( 1H0, A6,A6,22HWAS ALSO CHANGED FROM ,E13.6,5H TO ,E13.6,6H 52 

1 *$$$$! ) 53 

END 54 


$IBFTC CONVRS DECK 

SUBROJTINE CONVRG < T I ,HI ,P I , SI , FAR , WG, P A, I DES , AO , PR, TO, HO, PO, SO, TS 1 

10, PSO, VO, AMO, ICON) 2 

IC0N=1 SUBSONIC, COMPARE PI WITH PR 3 

IC0N=2 SONIC, COMPARE PI WITH PR 4 

IC0N=4 ERROR 5 

A J= 779 . 26 6 

CAPSF=2U6.217 7 

G=32. 174049 8 

CALL ’ROCOM ( FAR, TI, XXI, XX2, XX3, XX4, PHI I , XX6 ) 9 

*** SONIC CALCULATIONS 10 

J=0 11 

TSS=0. B33 *T I 12 

J=J+1 13 

CALL PROCOM ( FAR, TSS , CSS , AKS ,CP , REXS , PHI SS ,HSS ) 14 

HSCAL=HI-CSS**2/( 2. *G*AJ ) 15 

DELHS* HSC AL-HSS 16 

IF (ABS(DELHS)-0.0005*HSCAL) 4,4,2 17 

TSS=TSS+OELHS/CP 18 

IF (J-15) 1,1,3 19 

IC0N=4 20 

RETURN 21 

IF (IDES) 12,12,5 22 

*** ISENTR3PIC EXPANSION CALCULATIONS 23 

J=0 24 

TSI=TI*(PA/PI)** 0.286 25 

J=J+1 26 

CALL THERMO ( PA, HSI , TSI , SS I , XXI , 1 , FAR,0 ) 27 

IF ( ABS(SSI-SI )-0.0001*SI) 8,8,7 28 

TSI=TSI/EXP(4.*(SSI-SI ) ) 29 

IF C J— 30 1 6,6,3 30 

VIS=S3RT12.*G*AJ*(HI -HSI ) ) 31 

IF (VIS-CSS) 9,11,11 32 

*** SUBSONIC DESIGN, CALCULATE AO 33 

VO=VIS 34 

TSO=TS I 35 

PSO=P A 36 

CALL PROCOM (FAR,TSO,CSO,XX2,XX3,REX,PHISO,HSO) 37 

RHO=CAPSF*PSO/( AJ*REX*TSO) 38 

AO=WGT (RHO*VO) 39 

AM0=V3/CS0 40 

PR=P I 41 

IC0N=1 42 

10 TO=T I 43 

HO=HI 44 

PO=PI 45 

SO=SI 46 

RETURN 47 

C *** SONIC DESIGN, CALCULATE AO 48 

11 VO=CSS 49 

TSO=TS S 50 

PSO=PI * ( TSO/ T I )**IAKS/( AKS-1. ) ) 51 

RHO=CAPSF*PSO/(AJ*REXS*TSO) 52 

AO=WG/(RHO*VO) 53 


88 



noon 


AMO^l » 0 5 ^ 

PR=PI 55 

IC0N=2 56 

GO TO 10 57 

C *** NON-DESIGN, CALCULATE CRITICAL CONDITIONS 59 

12 VO=CS$ 59 

TS0=TS S 60 

PSO=PA 61 

RHQ=CAPSF*PSO/ ( AJ*REXS*T SQ ) 62 

AOCR I f S WG/ { RH0*V0 ) 63 

AMO=1.0 64 

PR=PS3»{TI/TSO)*» 1 AKS/ ( AKS-1 ® ) ) 65 

IF ( A3-AOCRI T ) 13,13,14 66 

C *** NON-DESIGN, CRITICAL AND SUPERCRITICAL CONDITIONS 67 

13 PS 0= PS 3* A OCR IT/ AO 68 

PR=PR* AOCRIT/AO 69 

ICON=2 70 

GO TO 10 71 

C *** NON-DESIGN, SUBSONIC CALCULATIONS 72 

14 PSO=PA 73 

J=0 74 

TSO=O.B33*TSO 75 

15 J=J+1 75 

CALL 3 ROCOM I FAR* TS3 , CSG* AKO* CP* REX* PHI SO* HSO) 77 

RHQ=CAPSF*PSO/(AJ*REX*TSO) 78 

VO=WG/(RHO*AO) 79 

HSC AL= HI-VO* *2/ { 2 «*S*AJ ) 80 

DELHS= HSC AL-HSO 81 

IF ( A3SCDELHS)-0*0005*HSCAL) 17,17,16 82 

16 TSO=T5 D+DELHS/CP 83 

IF ( J-15) 15,15,3 84 

17 AMQ=V3/CSO 85 

PR=PS3M TI/TSO)**(AKO/( AKO— 1 • ) ) 86 

IC0N=1 87 

GO TO 10 88 

END 89 


SIBFTC CONDI S3 DECK 

SUBROUTINE C0ND1V « T I , HI ,PI , SI ,FAR, WG, PA, IDES, AT, AO,PIR,TT,HT,PT,S I 

lT*T0*-f3,P0*S0*TST*TSD*PST*PSQ*VT*V0* AMT * AMQ* ICON) 2 

I C0N=1 SUBSONIC, COMPARE PIR WITH PI 3 

IC0N=2 SONIC, SHOCK INSIDE NOZZLE, COMPARE PIR WITH PI 4 

ICQN=3 SONIC, SHOCK OUTSIDE NOZZLE, COMPARE PIR WITH PI 5 

I COM=4 ERROR 6 

DIMENSION 0(91 7 

0( 2 ) =3 • 8 

Q(3)=D* 9 

AJ = 773 « 26 10 

CA PS F= 2116*2170 11 

G=32® 1 74049 12 

CALL P ROCOM C FAR , TI , XXI , XX2, XX3, XX4, PHH * XX6) 13 

C *** SONIC CALCULATIONS 14 

J=0 15 

TSS=0*833*TI 16 

1 J=J+1 17 

CALL 3 ROCOM C F AR ,TSS , CSS , AK f CP , REXS,PHI SS, HSS 5 18 

HSC AL = H I-CSS»® 2/ ( 2® *G*AJ ) 19 
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DELHS* HSCAL-HSS 20 

IF I ABS I DELHS ) -0»0005*HSCAL ) 4,4,2 21 

2 TSS=TSS+DELHS/CP 22 

IF (J-15) 1,1,3 23 

3 ICON=4 24 

RETURN 25 

IF C IDES) 11,11,5 26 

*** SONIC DESIGN, CALCULATE AT 2? 

VT =CSS 28 

TST = TS S 29 

PST=PI*(TST/TI )**l AK/ (AK-1. ) ) 30 

RHO=CAPSF*PST/< AJ*REXS*TST) 31 

AT*WG/ (RHO*VT) 32 

AMT *1.0 33 

C »** IDEAL EXPANSION DESIGN, CALCULATE A3 34 

PSO=PA 35 

J=0 36 

TS0=TI*(PS0/PI)**.286 37 

6 J=J + 1 38 

CALL PROCOM { FAR , TS3, CSO , AK , CP , REX , PHI SO, HSD) 39 

PH I CAL* PH I I-REX*ALOGI PI/PSO) 40 

DELPHI* PH ICAL-PHISO 41 

IF l A3 SI DELPHI )-0.0D01*PHlCAL ) 8,8,7 42 

7 TSO=TS 0*EXP( 4. *DELPH I ) 43 

IF I J-15) 6,6,3 44 

8 VO=S0R T( 2 • *G*AJ» ( HI -HSO ) ) 45 

AM0=V3/CS0 46 

AO* (AT/AM0)*(2.*(l.+( AK-1. )* AMO* *2/2. ) / ( AK+ 1. ) ) ** ( ( AK+ 1. ) / ( 2. * ( AK- 47 

11.))) 48 

PI R=PI 49 

IC0N*3 50 

9 T0=TI 51 

H0=HI 52 

PO=PI 53 

SO=Sf 54 

10 TT*T I 55 

HT*HI 56 

PT = P1 57 

ST=S I 58 

RETURN 59 

C *** ASSUME SONIC TJHROAT AND ISENTROPIC EXPANSION TO AO 60 

11 VT=CSS 61 

AMT = 1.0 62 

TST = TSS 63 

RH0=W3/(AT*VT) 64 

PST=RHO*AJ*REXS*TST/CAPSF 65 

PIR = PST*(TI/TST)**lAK/( AK-1. ) ) 65 

IF (PST-PA) 12,27,27 67 

12 TS0=0. 95*T I 68 

MAM=0 69 

13 CALL PROCOM ( FAR, TSO, CSO, AK, CP, REX, PHI SD, HSO ) 70 

AMO=S3RT(2.*I ITI/TS0)-1. » / I AK-1 „ ) ) 71 

AOCAL* (AT / AMO ) * ( 2 .* I 1 . + ( AK-1 . ) * AM0*»2/2 . > / 1 AK*1. ))**!( AK+1. ) / ( 2. * C 72 

1 AK-1 . ) ) ) 73 

EA= l A3- AOCAL ) / AO 74 

DIR=S3RT( AO/AOCAL) 75 

CALL AFOUIR ( Q (1) , TSO , E A , 0 . , 100. , 0. 0001 , DI R , TSOT , JCON ) 76 

GO TO ( 14, 18, 3) , JCON 77 

14 TS0=T5 DT 78 

IF (TS3-TI ) 15,13,16 79 

15 TSC=2»*TI/( AK+1. ) 80 

IF { TSO.GT .TSO GO TO 17 81 
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TSO=0.98*TI 82 

GO TO 13 83 

17 IF (Q( 2).LT.30.0.0R.AMO.LT.0.95.0R.MAM.EQ. 1) GO TO 13 84 

TS0=2.*TI/(2.+0.98*( AK-1.) ) 85 

MAM= 1 85 

GO TO 13 87 

18 PSO=PIR*(TSO/TI )**(AK/( AK-1. )) 88 

IF (PSO-PA) 20,19,27 89 

C *** CRITICAL FLOW, ISENTROPIC EXPANSION TO PA 90 

19 VO=AHO*CSO 91 

ICQN=1 92 

GO TO 9 93 

C *** SUBSONIC FLOW 9* 

20 PSO=P A 95 

Q(2)=D. 96 

Q( 3 ) =3. 97 

J=0 98 

TSO=0.833*TI 99 

21 J=J+1 100 

CALL PROCOM ( FAR, TSO, CSO , AK, CP, REX, PHI SO.HSO ) 101 

RHO=CAPSF*PSO/(AJ*REX*TSO) 102 

VO=WGMRHO*AO) 103 

HSCAL=HI-V0**2/(2.*G*AJ) 104 

DELHS= HSC AL-HSO 105 

IF { A3S (DELHS )-0.0005*HSCAL ) 23,23,22 106 

22 TSO=TS 3+DELHS/CP 107 

IF (J-15) 21,21,3 108 

23 AM0=V3/CS0 109 

PIR=PSO*(TI/TSO)**(AK/(AK-1. ) ) 110 

TST=TSO 111 

24 CALL 3 ROCOM ( FAR , TST , CST , AK , CP , REX, PHI ST , HST) 112 

PST = PIR*(TST/TI)**(AK/(AK-1. ) ) 113 

RHO=PST*CAPSF/( AJ*REX*TST) 114 

VT=WGMRHO*AT) 115 

HSCAL=HI-VT**2/(2.*G*AJ) 116 

EH=(HSCAL-HST ) /HSCAL 117 

DIR=1.+(HSCAL-HST)/(CP*TST) 118 

CALL AFQUIR ( Q (1) , TST , EH, 0. , 20. , 0.0005 , DI R , TSTT, JCON) 119 

GO TO (25, 26, 3), JCON 120 

25 TST=TSTT 121 

GO TO 24 122 

26 AMT = VT /CST 123 

IC0N=1 124 

GO TO 9 125 

C »** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO PA 126 

27 PSO=P A 127 

J=0 128 

TS0=TI*(PS0/PIR)**.286 129 

28 J=J+1 130 

CALL PROCOM ( F AR, TSO, CSO, AK, CP , REX, PHI SO, HSO ) 131 

PHI CAL =PHI I-REX*ALOG ( P IR/PSO ) 132 

DELPHI =PHICAL-PHISO 133 

IF ( ABSIOELPHI ) -0.0001*PHI C AL ) 30,30,29 134 

29 TSO=TSO*EXP(4.0*DELPHI I 135 

IF (J-15) 28,28,3 135 

30 V0= SORT ( 2 . *G»AJ* ( HI-HSO ) ) 137 

AMO= VO/CSO 138 

AOI D=( AT/AM0)*(2.*(1. + (AK-1. )*AM0**2/2. )/( AK+1 .))**(( AK+1 .)/( 2. *( A 139 

1K-1.)»I 140 

IC0N=3 141 

N=0 142 

IF ( AO-AOID ) 31,9,32 143 
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c *** supercritical flow, ISEMTROPIC EXPANSION TO AO 144 

31 N=1 145 

32 TSO=Oa 333^1 1 145 

J=0 147 

33 J=J*1 148 

CALL PROCOM {FAR 9 T$D,CS0*AK*CP,REX,PHIS0*HS01 149 

ANO = SQRT?2*M <TI/TSO)-l, )/(AK-l*> > 150 

AOCAL= ( AT/ AMO) *(2*»{l<* + { AK-1 « ) »AM0**2/2« ) / C AK + 1® I) { { AK+le ) /{ 2o * ( 151 

1AK-1*) 5 ) 152 

DELA- AO-AOCAL 153 

IF { ABSCDELA)~0»0001*AOI 35*35*34 154 

34 TSQ=TSD*SQRT{ AOCAL/AO ) 155 

IF ( J“50 ) 33,33,3 156 

35 IF ( N) 37,37,36 157 

C *** UNDEREXPANDED* SHOCK OUTSIDE NOZZLE 158 

36 PSO=PI R*{ TSQ/TX ) AK/ ( AK-1 . 1 ) 159 

VQ= AM3&CSO 160 

GO TO 9 161 

C *** OVEREXPANDED, FIND SHOCK POSITION 162 

37 PSX = PIRMTSO/TI )»*! AK/ i AK~1* >) 16 3 

PSY=PSX*l2c*AK*AM0**2/<AK*U S-C AK-1* )/( AK+1. ) I 164 

IF (PA-PSY) 38,39,39 165 

C OVEREXPANDED * SHOCK OUTSIDE NOZZLE 166 

38 PSO^PSX 167 

VO= AMO&CSO 168 

GO TO 9 169 

C *** OVEREXPANDED, SHOCK INSIDE NOZZLE 170 

39 PSO=PA 171 

J-0 172 

TS0=0,833*TI 173 

40 J=Jn 174 

CALL P ROCOM t FAR*TS3*CS0, AK*CP*REX,PHISO*HSO> 175 

RH0-CAPSF*PS0/ ( A J#REX»TSO) 176 

V0=WG/(RH0*A0) 177 

HSCAL*HI-V0**2/I 2**G*AJ) 178 

DELHS-HSCAL-HSQ 179 

IF { ABSfDELHS)-0*0005*HSCALI 42,42*41 180 

41 TSO^TSO+DELHS/CP 181 

IF ( J~15) 40,40,3 182 

42 AM0=V3ZCS0 183 

TO=TI 184 

HO=HI 185 

P0=PS3*( TO/TSOI **CAK/( AK-UI > 186 

SO=PHI I -REX^ALOG C PGI 18? 

IC0N=2 188 

GO TO 10 189 

END 190 


$ I BFTC THTERB DECK 

SUBRO J TINE THTURB f DH, ET A* F AR, H, S* P, TO* HO* SO*PQ> 1 
HO=H-0 -J 2 
H0P=H-OH/ETA 3 
PT=P/2 * 4 
DO 1 1=1,25 5 
CALL THERMO i PI * HOP* TT * S T, AMWT 9 1 , F AR* 1 > 5 
DEL S = S T“S 7 
IF { A3S(DELS).LE.O*00005*S) GO TO 2 3 
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1 


PT=P*EXPI DELS*AMWT/I*986375*AL0G!PT/P£ 1 9 

CALL ERROR 10 

2 PO=PT 11 

CALL T-fERMO { PO, HO, TO , SO. XI » 1 S FAR 9 II 12 

RETURN 13 

END 


SIBFTC THERMO DECK 

SUBROJT INE THERMO CPX*HX,TX, SX ? AMX, L, FAR ,K I 1 

FX=0* 2 

IF ( L* EQo 1 ) FX=FAR 3 

IF ( EQo 1 ) GO TO 1 4 

CALL PROCOM ( FX ? TX* CS , AK ,CP • R*PHI f HX \ 5 

GO TO 3 6 

1 TX=4«»HX 7 

DO 2 1*1* 15 3 

CALL PROCOM i FX , TX,CS , AK *CP * R* PHI * H 3 9 

DELH=HX-H 10 

IF < ABS(DELHUIE*0®00001*HX£ GO TO 3 11 

2 TX=TX* 4® *DELH 12 

WRITE C 8, 4 ) 13 

3 SX=PHI-R*ALOGC PX) 14 

AMX=1 • 986375/R 15 

RETURN 16 

17 

18 

FORMAT { 3 1HONO CONVERGENCE IN THERM0$$$$$$ I 19 

END 20 


SIBFTC AFQUER DECK 

SUBROJ FINE AFQUIR ( X , AIND, DEPEND, ANS , A J , TOL , D I R, ANEW, ICON) 1 

DIMENSION X C 9 3 2 

C Xm=NAME OF ARRAY TO USE 3 

C A! ND* INDEPENDANT VARIABLE 4 

C DEPEND* DEPENDANT VARIABLE 5 

C ANS=ANSWER UPON WHICH TO CONVERGE 6 

C AJ=MAX NUMBER OF TRYS 7 

C IOL*PERCEMT TOLERANCE FOR CONVERGENCE 8 

C DIR=DIRECr ION AND PERCENTAGE FOR FIRST GUESS 9 

C AMEW*CALCJLATED VALUE OF NEXT TRY AT INDEPENDANT VARIABLE 10 

C I C0N=C0MTR3L *1 GO THRU LOOP AGAIN 11 

C =2 YOU HAVE REACHED THE ANSWER 12 

C *3 COUNTER HAS HIT LIMITS 13 

C X f 2 I =COUMT ER STORAGE 14 

C X ! 3 1 =CHOOS ES METHOD OF CONVERGENCE 15 

C X C4 i *TH IRQ DEPEND VAR 16 

C X f 5 I =TH IRD IND VAR 17 

C X C 6 I =SECOM D DEPEND VAR 18 

C X C 7 5 =SECQNO IND VAR 19 

C X C 8 ) =F I RST DEPEND VAR 20 

C XC9)=FIRSF IND VAR 21 

C XI 31 MUST BE ZERO UPON FIRST ENTRY TO ROUTINE 22 

Y*0* 23 

IF CANS! 1,2,1 24 
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1 

DEP = DE PEND-ANS 

25 


T0LAMS*T0L»ANS 

26 


GO TO 3 

27 

2 

DEP=DE PEND 

28 


TOLANS =TOL 

29 

3 

IF t ABS l DEP ) “TOLANS) 5,5,4 

30 

4 

IF { X( 2 )~AJ i 8,8,7 

31 

5 

ANEW=AIND 

32 


X 1 2 ) *D » 

33 


IC0N=2 

34 


RETURN 

35 

6 

ANEW*/ 

36 


Xi2 ) =< 1 2) -9-1 * 

37 


IC0N*l 

38 


RETURN 

39 

7 

ANEW*/ 

40 


X( 2 1 =3, 

41 


IC0N*3 

42 


RETURN 

43 

8 

IF (X( 3) ) 9,9,12 

44 

c 

FIRST GUESS USING DIR 

45 

9 

X ( 3 1 =1 • 

46 


X 1 8 ) =3EP 

47 


X ( 9 1 =A I ND 

46 


IF (AIND) 10,11,10 

49 

10 

Y=DIR* AIND 

50 


GO TD 6 

51 

u 

Y=DI R 

52 


GO TO 6 

53 

12 

IF CXC 3)-l» 1 13,13,16 

54 

c 

LINEAR GUESS 

55 

13 

X( 3 1 =2 , 

56 


X(61=3EP 

57 


X(7)*AIND 

58 


IF IX(9)-X(6)) 14,9,14 

59 

14 

IF I X( 9)-X( 7 ) ) 15,9,15 

60 

15 

A=(X(9)-XC7) )/(X(8)-X(6) ) 

61 


Y=X(9)~A*X(81 

62 


IF { A3S(10.*X(9) J-ABS ( Y ) 1 9,9,6 

63 

c &&& 

QUADRATIC GUESS 

64 

16 

X 1 4 ) =DEP 

65 


XI5 )*AIND 

66 


IF (X(71-X(5)l 18,17,18 

67 

17 

IF (XI 6 1 — X ( 4 ) ) 13,9,13 

68 

18 

IF (X(6)-X(4) ) 19,13,19 

69 

19 

IF ( X( 91-X ( 5 ) 1 23,20,23 

70 

20 

IF < XI 8 l-Xt 4 » 1 21,22,21 

71 

21 

X(9) *X ( 7 ) 

72 


X ( 8 ) *X ( 6 ) 

73 


GO TO 13 


22 

XI9)=< (7) 

75 


X ( 8 ) =X ( 6 ) 

76 


X { 3 1 =i . 

7? 


IF (X( 9) 1 10,11,10 

78 

23 

IF (X( 9>-X(4) ) 24,21,24 

79 

24 

F=IX(b)-X«4) )/(XC7»-X(5) ) 

80 


A* ( X( 3 )-X (4)-F*(X( 91-Xf 5 )))/C(X(9)-X(7)l*(X(9)-XC5)H 

81 


B=F-A*(X(5)+X(71 1 

82 


C=X(4)+X(5)*IA*X(7)~F) 

83 


IF (A) 27,25,27 

84 

25 

IF (81 26,7,26 

85 

94 





26 


Y=-C/B 86 

GO TO 47 87 

27 IF IB? 32,28, 32 88 

28 IF 1C? 30*29*30 89 

29 Y=0. 90 

GO TO 47 91 

30 G=-C/A 92 

IF (G? 7,7,31 93 

31 Y=SQRT IGS 94 

YY=-S3RT(GJ 95 

GO TO 37 96 

32 IF ( Cl 34,33,34 97 

33 Y=-B/A 98 

YY=0. 99 

GO TO 37 100 

34 D*4» »A*C/B**2 101 

IF II. -D? 13,35,36 102 

35 Y*-B/I 2«*A) 103 

GO TO 47 104 

36 E*SQRT(1.-D> 105 

Y= ( -B7 1 2® * AS ?*? 1® -s-E) 106 

YY=(-B/(2.*A) )*<1.-E ) 107 

37 J=4 108 

DEPMIN*ABSIX14) ) 109 

00 39 1=6, 8, 2 110 

IF (DEPMIN-ABSCXUS? ) 39,39,38 111 

38 J=I 112 

DEPMI9=ABS(XII) ) 113 

39 CONTINUE 114 

K=J+l 115 

IF f (XOO-Y?*(X{K)-YY? J 42,42,40 116 

40 IF lABSUIKS-YJ-ABSf XIK5-YYJ ) 47,47,41 117 

41 Y=YY 118 

GO TO 47 119 

42 IF ( J-6) 43,44,44 120 

43 JJ=J+2 121 

KK=K+2 122 

GO TO 45 123 

44 JJ=J-2 124 

KK=K-2 125 

45 SLOPE* ( X{KK)-XIK > )/(X(JJ)-XU) ) 126 

IF ISLOPE*X( J)*(X{K)-Y> ) 46,46,47 127 

46 Y=YY 128 

47 X (9) *X 1 7) 129 

X I 8 ) =X ( 6 ) 130 

X( 7 ) =< C5 ? 131 

X 1 6) =X 1 4) 132 

GO TO 6 133 

END 134 


$1 BFTC PARA30 DECK 

SUBROJTINE PARABO ( X , Y, XD, YANS ) 1 

DIMENSION X ( 3 ) , Y ( 3 ) 2 

A=l (X( 1 1 — X t 2 > >*(Y(ll-Y(3))-tX(l)-Xl3) )*IY(1)-YC2) 1 )/( (X(l)-X(2) )*( 3 

1X(1»-X(3) ) * ( X l 3 ) -X( 2 ) )) 4 

B«UX(1)**2-X(2)**2)*(Y( 11-Yt 3> i- ( X (1)**2-XI 3) **2 ) * ( Y (1) -Y( 2 )>) / { ( 5 

1X(1)-X(2? )#<Xm-X(3) )*(X(2)-X(3) ) ) 5 
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D=(Ym*X(2)**2-Y(2>*XU)**2~B®X!2I^XmMXf23-xm H / C X C 2 1 **2-X C 1 7 

1 )^* 2 ) 8 

YANS={ A»XD*B)*XD*D 9 

RETURN 10 

END 11 


$1 BFTC BLKFAM DECK 


THIS IS A 

GENERALIZED FAN MAP FOR UNREALISTIC SUPERSONIC ENGINE 

1 

BLOCK DATA 





2 

CONMOM / 

FAN/CNU5) 

s PRC 15,151 ® 

WAC C 15® 15$ ®ETAU5®15> 

®N®MPU5> 

3 

DATA N.NP/ 10, 6 , 3*7, 5*10,8,5*0/ 



4 

DATA :i/0* 

3* 0*4* 0* 5* 

0*69 0 © 7® 0*8 

,0. 9® 1*0® 1*1? i.2®5*0« 

/ 

5 

DATA { PRC 

l* J) ®WACC 

1 ® J 1 ®ET A i I 

®J)®J-X® 6 )/ 


6 

1 1 » 03000® 

243*600* 

0*75592® 

1*01200® 229.800® 

0.76120® 

7 

2 1 « 02 800® 

199*800* 

0*76648® 

1*03840® 166*800, 

0*75592® 

8 

3 1*04480® 

133*200* 

0*72512® 

1*04800® 86*400® 

0.64152/ 

9 

DATA CPRC 

2* J ) * WAC { 

2 1 J 1 *ETA C 2 

® J 1 ® 3-1® 71/ 


10 

1 1*03000® 

28 6*800* 

0*75592® 

1*02000® 270.000® 

0*77616® 

11 

2 1 *04000 » 

253*200® 

0*79200® 

1.05840® 233*400® 

0*79728® 

12 

3 1 ® 07 520® 

209*400® 

0.80256® 

1*09200® 183*600® 

0*77616® 

13 

4 1 « 10000 $ 

156*600® 

0*74008/ 



14 

DATA t PRC 

3 ® J 1 ® WACC 

3® J 1 ®ETA C 3 

® J)® J^l® 71/ 


15 

1 1 e 03 300 ® 

333*600® 

0*75064® 

1*02560® 322*300 ® 

0*77616® 

16 

2 1 ® 05120® 

310*200® 

0*80256® 

1.08000® 291.600® 

0* 8280B ® 

17 

3 1*11 600® 

259*800? 

0.84392® 

1*13200® 240® 000® 

0 ® 82808 ® 

18 

4 1 a 14800 ® 

213*600® 

0*77616/ 



19 

DATA f PRC 

4® J 1 ® WAC C 

4 ® J 1 ®ETA( 4 

71/ 


20 

1 1 ® 03300® 

383*400® 

0*74536® 

1*03680® 376*200® 

0*77616® 

21 

2 1 » 03 800 9 

358*200® 

0 ® 82808® 

1*12400® 340*200® 

0*85448® 

22 

3 1.1600Q® 

313*200® 

0*88000® 

1 .18960® 276*600® 

0.82808® 

23 

4 1 * 19 520 9 

266*400® 

0*80784/ 



24 

DATA f PR C 

5® J)®WACC 

5 ® J 1 ® ETA f 5 

® J 1 ® J-l® 10 ) / 


25 

1 1 * 00000 * 

439*800® 

0*72512® 

1*06400® 436*800® 

0* 77616 ® 

26 

2 1*11540* 

428*400® 

0.82808® 

1.14800® 420*600® 

0*85448® 

27 

3 1 • 13 400 * 

406® 800® 

0*88000® 

1*20960® 393.600® 

0.90112® 

28 

4 X® 21 760* 

388*200® 

0*90376® 

1.22400® 383.400® 

0*90112® 

29 

5 1*24400® 

368*400® 

0*88000® 

1.26720® 342.600® 

0.82808/ 

30 

DATA { PR! 

6 ® J!*WAC( 

6 ® J 1 ®ETA C 6 

tJUJsiaOl/ 


31 

1 1 * 00000 * 

499*800® 

0*68816® 

1*10000® 499.800® 

0.77616® 

32 

2 1*16000® 

493*200® 

0*82808® 

1*20000® 485.400® 

0*85448 ® 

33 

3 1*22800* 

476*400® 

0.88000® 

1.25520® 466*800® 

0*90112® 

34 

4 1*27200* 

456*600® 

0*91080® 

1*28640® 448*200® 

0*90112, 

35 

5 1*30240* 

433*200® 

0*88000® 

1*33200® 406*800® 

0*82720/ 

36 

DATA CPRC 

7®*§)®WACC 

7® J $ ®ETA f 7 

®J), J=l® 10 )/ 


37 

1 1 * 00000 * 

566*400® 

0*64152® 

1.07600® 566*400® 

0.72512® 

38 

2 1*15200* 

566*400® 

0*77616® 

1.21920® 559.800® 

0*82808® 

39 

3 1® 26300® 

553*200® 

0*85888® 

1.28960® 544.800® 

0*88000® 

40 

4 1*33120* 

528*600® 

0*90112® 

1.36160® 509® 400® 

0*88000® 

41 

5 1*39120* 

483*600® 

0*82808® 

1*40000® 474.000® 

0*81752/ 

42 

DATA I PR 1 

8 ® J ) ® WAC C 

8 ? J $ ® ETA 1 8 

®J)®J=lt 101/ 


43 

I 1 * 00000 * 

633*600® 

0*60016® 

1.04400® 633*600® 

0*64152® 

44 

2 1*13520* 

633.600® 

0*72512® 

1.22080® 633*000® 

0.77616® 

45 

3 1*29440* 

625*800® 

0*82808® 

1 * 34000® 616*800® 

0. 85888® 

46 

4 1*40000* 

600*000® 

0 * 88000® 

1*42800® 586.800® 

0*85888® 

47 

5 1 * 44800 * 

576*600® 

0*82808® 

1*48000® 553.200® 

0.78672/ 

48 

DATA l PRC 

9® J 1 * WAC C 

9® J ) ®ETA C 9 

iJlf J*l®101 / 


49 

1 1 * 00000 * 

700*200® 

0*56936® 

1*10400® 700*200® 

0*64152® 

50 

2 1 . 22000 * 

700*200® 

0*72512® 

1*32400® 700.200® 

0*77616® 

51 


96 



3 

1 © 43 DOO? 

700.200? 

0® 80256® 

1.44800? 

698.400? 

0.80784? 

52 

4 

1 a 5D OOO 9 

693® 600? 

0® 80256? 

1.53350? 

683® 400? 

0.77616? 

53 

5 

U55SOO? 

666 » 600? 

0® 74536? 

1 ® 58400? 

656.400? 

0.72512/ 

54 


DATA l PR 1 10 

? J ) ? WACC 10 

? J ) ?ETA! 10? 

J>» J*l* 

81/ 


55 

1 

1*03 000 ? 

750* 000? 

0® 51744? 

1.16320? 

750® 000? 

0*64 152? 

56 

2 

1.31200? 

750.000? 

0.72512? 

1 o 40000? 

750® 000? 

0.75592 ? 

57 

3 

1.43000? 

750.000? 

0.76120? 

1® 54000? 

750.000? 

0*75064? 

58 

4 

1 « 53 000? 

749® 400? 

0.72512? 

1.66000? 

736® 800® 

0® 64152/ 

59 


END 






60 


SI8FTC BLKCNP DECK 

C THIS IS GENERALIZED COMP. MAP FOR UNREALISTIC SUPERSONIC ENGINE 1 

BLOCK DATA 2 


COMMON / COMP/CNC 151 

» PR I 15,15) 

9 

WAC { 15? 15 ) ? 

ETAil5*15>?N?NP(15> 

3 

DATA ^?NP/ 10 

t 2^6? 2»8 

.4*10,2*8* 

5#0 / 



4 


DATA :M/®562 

? *674? *787?® 899? 1® 

9 

1*034? 1 * 067 

? 1. 124? 1 . 

236?1*292?5»0./ 

5 

DATA { PR I 

i* 

J) ?WACI 

1? J ) ?ETA( 

1 

?JI?J=1? 6)/ 


6 

1 

1*00000? 


51*000? 

0*59082? 


1*84000? 

50*200? 

0*62178? 

7 

2 

2*42800? 


49*500? 

0*64242? 


2*86900? 

48.800? 

0*65274? 

8 

3 

3* 83 500? 


46*700? 

0*67338? 


4*54900? 

44*500? 

0*64242/ 

9 


DATA i PRC 

2, 

J ) ? WAC ( 

2 ? J ) ?ETA C 

2 

6)/ 


10 

1 

1*03000? 


59*300? 

0*59082? 


1*96600? 

59.300? 

0*64242? 

II 

2 

3*09300* 


58*800? 

0*69402? 


3*93300? 

57*900? 

0*72498? 

12 

3 

4*63900? 


56*700? 

0*74562? 


5*52900? 

55*000? 

0*72498/ 

13 


DATA 1 PR 1 

3 s 

J } ? WACf 

3 ? J ) ?ETA ! 

3 

§ J ) ? J”1 ? 81/ 


14 

1 

1*00000? 


70*000? 

0*58566? 


1 © 84000? 

70*000? 

0® 64242 ? 

15 

2 

2*63 000 ? 


70*000? 

0*68370? 


3*40800? 

69.500? 

0*72498? 

15 

3 

4*52100? 


68*800? 

0*77744? 


5.44500? 

67*900? 

0*79292? 

17 

4 

6*31300? 


66*400? 

0*77744? 


6*52300? 

65*700? 

0*76970/ 

18 

DATA ( PR C 

4, 

J I ? WACC 

4? J ) ?ETAC 

4 

?J)?J=1? 8)/ 


19 

1 

1.00000? 


84*800? 

0.58050? 


2*00800? 

84.800, 

0.64242 ? 

20 

2 

3*42900? 


84*800? 

0*72498? 


4*60500? 

84. 800 ? 

0.77744? 

21 

3 

5 • 69700 ? 


84*000? 

0.80840? 


6*61400? 

83*300? 

0*82904? 

22 

4 

7*53300? 


81*700? 

0® 80840? 


7*95800? 

80*500? 

0.79292/ 

23 


DATA 1 PR I 

5, 

J I ? WAC f 

5 ? J & ?ETA f 

5 

?J1 ?J=!?XO) 

/ 


24 

1 

1*03000? 


101*700? 

0*57190? 


2*51900? 

101*700? 

0.64242? 

25 

2 

3*93200? 


101*700? 

0*72498? 


5*27700? 

101*700? 

0.77744? 

26 

3 

6*43300? 


101*200? 

0*80840? 


7*20200? 

101.000? 

0*83936? 

2? 

4 

8*00000? 


100*000? 

0® 86000? 


8*56700? 

99*500? 

0*83936? 

28 

5 

9 ® 33 600? 


98*100? 

0*80840? 


9*59600? 

97® 400? 

0*80582/ 

29 


DATA ( PR 1 

6, 

J) ?WACf 

6? J J ?ETA C 

6 

,J),J=1»10>/ 


30 

1 

1*00000? 


108*100? 

0*57018? 


2*85500? 

108*100? 

0.64242? 

31 

2 

4® 29700 ? 


108*100? 

0*72498? 


5® 61300? 

108*100? 

0*77744? 

32 

3 

6*93600? 


107*600? 

0*80840? 


7*62200? 

107*100? 

0*83936, 

33 

4 

8*54600? 


106*700? 

0*86000? 


9*13400? 

106*000? 

0*83936? 

34 

5 

9*92500 ? 


104*500? 

0*80840? 


10*21900? 

104*000? 

0*80410/ 

35 


DATA C PR 1 

7, 

J) ?WAC( 

7#J)?ETA( 

7 

?ja?j=i?io>/ 


36 

l 

1*00000? 


114*500? 

0*55986? 


3.26100, 

114*500? 

0*64242? 

3? 

2 

4*75900? 


114*500? 

0*72498? 


6.11700, 

114*500? 

0*77744? 

38 

3 

7*45400? 


114*500? 

0*80840? 


8.30800, 

114*300? 

0*83936? 

39 

4 

9*21800? 


113*600? 

0*84968? 


9.63800, 

113*300? 

0.83936? 

40 

5 

10.51300? 


112*600? 

0*80840? 


10.99600, 

112*400? 

0*79808/ 

41 


DATA { PRC 

a. 

Jl ?WACI 

8? J 1 ?ETA ! 

8 

,J>, J-1,10)/ 


42 

1 

1*00000? 


122*900? 

0*53922? 


1*68600? 

122*900? 

0*57018? 

43 

2 

3*84900? 


122*900? 

0*64242? 


5*46600? 

122*900? 

0*72498? 

44 

3 

6* 86 600 ? 


122*900? 

0 © 77744® 


8*37100? 

122*900? 

0.80840 ? 

45 

4 

8*96500? 


122*600? 

0*82388? 


9.88300? 

122*100? 

0*83936? 

46 

5 

10*91200? 


121*700? 

0*80840? 


11.8150P? 

120*700? 

0*77744/ 

47 
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DATA 1 PR f 9® 

J } « WAG I 9 

®J)?£TAC 9 

? J ! ? J = 1 ? 

8)/ 


48 

1 

1 « 03 000 ® 

139*800® 

0®47644 f 

4*35300? 

139® 800? 

0*60114? 

49 

2 

7® 52 200 ? 

139® 800® 

0® 72498® 

10*21900® 

139© 800? 

0® 77744? 

50 

3 

11® 05 900 ? 

139*800® 

0*78260® 

11® 89900? 

139® 500? 

0® 77744? 

51 

4 

13*15900* 

139* 300? 

0© 72498® 

13*65600? 

139*000? 

0® 69918 / 

52 


DATA CPRClOt 

J) ?WACQO 

t JlfETAUO 

fJ)?J = l® 

8)/ 


53 

1 

I • 00 000 $ 

146*200? 

0*46612® 

3® 76500? 

146© 200? 

0® 57018? 

54 

2 

6*43100? 

146*200® 

0® 64242? 

9© 17600? 

146*200? 

0*72498? 

55 

3 

10® 21 900 9 

146*200® 

0*75078? 

11* 47900? 

146*200? 

0*7507 8 ® 

55 

4 

12*71 100? 

146*200® 

0*72498? 

14*41200? 

146® 200? 

0*64242/ 

57 


END 






58 


$IBFTC CMBDAT DECK 

BLOCK DATA 1 

COMMOM / COMB/PSH15),DELT<15,15),ETA(15,i5»,N,MP<l5» 2 

DATA \|,NP / 15,15*15 / 3 

DATA PS 1/4. 91 16, 9. 8232, 14. 735, 19. 646, 24. 558, 29.^70, 34. 3B1, 4 

139.293.44.207.73.674. 100.. 200.. 300.. 400. .500./ 5 

DATA DELT/ 15*200., 15*300., 15*400. , 1 5*500. , 15*600. , 1 5*700. , 15*803. , 6 

115*900., 15* 1000. ,15* 1100., 15*1200., 15*1 300. ,15*1 400. , 15* 1500. , 7 

215*1600./ 8 

DATA ETA/ 9 

1 .600.. 726, .777, .806, . 826, . 843, . 855, . 865, 7*. 870, 10 

2.758.. 825,. 858,. 875, . 888 ,. 898, . 906, . 912, . 914,6*. 915 , 11 

3. 868.. 393.. 911.. 925. . 935 . .942. . 947. . 951 . 7.. 953, 12 

4.925.. 936,. 946, .955, .963,. 969,. 974,. 977, .978, 6*. 979, 13 

5. 960.. 966.. 972.. 977. .982.. 985.. 990.. 992.. 993. 6.. 995, 14 

6.988. . 991. .992. .994. . 995 .. 997. . 998. 8.. 999, 15 

78*1. 00*7*. 999, 120*1. 00/ 15 

END 17 


SIBFTC HPTDAT DECK 

BLOCK DATA 1 
COMMON / HTURB/TFF1 15),CN(15,15),DH(15,15) ,ETA ( 15, 15 ) , N,NP ( 15 ) 2 
DATA \I»NP/10» 9*15,12, 5*0/ 3 


DATA TFF / 

39*670? 

42*990? 

47® 460? 

48* 610 ? 

49* 175? 

4 

1 

49.600, 

50*000? 

50*425? 

50®920? 

51*575? 

5»0*/ 

5 

DATA 1 CNt It 

J ! ?DH C 1? 

J ) ? ETA C 1? 

J ) ? J = i® 15 ) / 



6 

l 

0®1372? 

0*0032? 

0® 6219? 

0*3372? 

0*0057® 

0*7078® 

7 

2 

0® 5156? 

0*0084? 

0*7868? 

0® 7128? 

0*0108? 

0*8090? 

8 

3 

0*9382? 

0*0133? 

0*8090? 

1*1442? 

0*0152® 

0*7963? 

9 

4 

1*3 138 ? 

0*0164? 

0*7779? 

1*5382® 

0*0174? 

0*7422? 

10 

5 

1® 7 264? 

0®0179? 

0*7078? 

1* 9324? 

0*0176® 

0*7635? 

11 

6 

2® 1 500? 

0® 0167? 

0©6068? 

2*4058? 

0*0144® 

0*5309® 

12 

7 

2*5 892 « 

0*0120? 

0*4773? 

2 ©7862? 

0*0082® 

0*4045? 

13 

8 

2*9460 9 

0*0034? 

0*3034/ 




14 

DATA iZ Hi 2? 

J)?DH* 2 ? 

Jl f ETAI 2? 

J)?J*X,15)/ 



15 

1 

0® 1872 9 

0*0038? 

0*6068? 

0*3942® 

0*0080? 

0* 707 B ® 

16 

2 

0*5814? 

0*0113? 

0*8090? 

0*7128? 

0*0136? 

0*8292® 

17 

3 

0*3442? 

0*0156? 

0*8363? 

0*9804® 

0*0176? 

0*8393® 

18 

4* 

1*1068? 

0*0192? 

0*8368? 

1*2754® 

0*0212? 

0*8302® 

19 

5 

1©4450? 

0*0228? 

0*8254® 

1*7068® 

0*0248? 

0*8090® 

20 
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6 1.9596? 0*0260? 0.7696? 2*2706? 

7 2 ©S 970 ? 0*0241® 0.6068? 3©0960? 

8 3® 3 774? 0.0128? 0.4197/ 

DATA [ZM 3 » J ) ? DH { 3? J) ?ETA( 3? J & » J* 1 $ 13 ) / 


1 

0.1872, 

0*0046? 

0*5764? 

0 ® 4362, 

2 

0*6 568 , 

0*0144, 

0*8090? 

0*8726, 

3 

1.3696, 

0*0216, 

0 ® 8543? 

1 * 2382? 

4 

1*4 538 , 

0*0268, 

0*8494, 

1.6882, 

5 

1*9696? 

0.0316, 

0.8262 ? 

2*2138? 

6 

2.5520, 

0*0344? 

0*7579? 

2. 8050 ? 

7 

3*3392? 

0*0340? 

0.6652? 

3.2648? 

8 

3*3774, 

0.0312, 

0*5865/ 



0®0261 s 

0*0188? 


0.G100? 
0*0184* 
0® 0240 * 
0*0292 # 
0® 033 1 ? 
0*0346? 
0*0324* 


OATA t CNt 4 * J 5 ? DH S 4? J)?ETAt 4* J I * 3 = 1 ? 15) / 


1 

0*1372# 

0.0052? 

0*5643, 

0*2550, 

2 

0.4784? 

0*0120? 

0.7078? 

0.6942? 

3 

0.9148? 

0*0204? 

0.8494? 

1*1442? 

4 

1.3882, 

0.0280, 

0*8596? 

1*5618® 

5 

1.3310, 

0.0336, 

0*8535? 

1.9794? 

6 

2*2794, 

0.0 38 8 , 

0.8363, 

2*5138? 

7 

2.3334? 

0*0441, 

0*8090? 

3.1422? 

8 

3.3774? 

0*0494, 

0*7584/ 



0*0068? 

0*0164? 

0.0244* 

0.0304* 

0®0356 f 

0®0412* 

0*0472* 


0*7078? 

0*5056* 


0.7078? 
0*8494* 
0*8515* 
0® 8409 * 
0.8090* 
0*7078* 
0® 6068 * 


0* 6068 * 
0*8090* 
0*8596? 
0* 8575 * 
0*8494? 
0® 8262 * 
0* 7797 ? 


DATA i CMC 5* J ) * DH C 5? J)?£TA( 5 , J ) ? J-l ? 1 5 ) / 


1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

3 

4 

5 

6 

7 

8 

C 

1 

2 

3 

4 

5 

6 
7 
3 


0® l 872 * 
0*5254? 
0® 9754* 
1*4324? 
2*3 450 * 
2*6450? 
3*3764? 
3*1618? 
DATA CCNI i 


0*0056? 

0*0144? 

0*0236® 

0*0321? 

0*0400? 

0*0496? 

0*0596? 

0*0661? 

J > , DHI 6, 
0 * 0068 ? 
0 * 0192 ? 
0 * 0300 , 
0 ® 0384 ? 
0 * 0472 ? 
0 . 0564 ? 
0 * 0640 ? 
0 * 0698? 


0*1872? 

0.5196? 

1.3932? 

1*5010? 

1*9138? 

2.2706, 

2*4950, 

2*5558, 

DATA C CNf 7 ? J ) ? DH ( 7, J)?ETA( 


0*1872? 
0*5844? 
1*2310? 
1*5108? 
1*7450? 
1*9558 $ 
2*3450, 
2*1310? 
r a i ZHi * 
0*1872? 
0*7314® 
1.3226? 
1.2804, 
1*4638? 
1*6746, 
1.3310, 
1*8196? 


0*0080, 
0.0236, 
0.0372, 
0*0448? 
0.0510, 
0.0576, 
0.0624, 
0.0700, 
JKDHI 8 i 
0 ® 0088? 
0.0272, 
0*0356, 
0.0432, 
0*0488? 
0*0560, 
0*0640, 
0® 0693, 


DATA { ZHi 9 ? J ) , DH C 9,, 


1 

2 

3 

4 

5 


0*1372, 

0*5344? 

0.8068, 

1*0128, 

1.2196, 


0*0093, 
0*0232, 
0.0330, 
0*0400, 
0® 0480, 


21 

22 

23 

24 

25 
25 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


0*5562, 

0.3000, 

0.0088, 

0.606B* 

43 

0.7078? 

0*7500, 

0.0192, 

0*8090? 

44 

0*8494, 

1*2754, 

0.0288, 

0.8697? 

45 

0.8696? 

1*7638? 

0.0360, 

0*8662? 

45 

0*8615, 

2.3362 1 

0.0444, 

0*8555? 

47 

0,8520? 

2.8706, 

0.0540, 

0*8494? 

48 

0.8494? 

3.1520, 

0.0640, 

0*8532, 

49 

0*8570/ 




50 

*ETAt 6, 

J ) f J-l? 15 ) / 



51 

0*5309? 

0 « 3568 , 

0.0120, 

0® 6068 ? 

52 

0.7078, 

0*8628, 

0.0252, 

0.8090? 

53 

0.8494, 

1.2852, 

0.0340, 

0*8697? 

54 

0*8819? 

1*6882? 

0.0421, 

0.8899? 

55 

0*8940, 

2*1246? 

0.0524, 

0.8969? 

56 

0*8975? 

2,4226, 

0.0612, 

0.8976, 

57 

0.8968, 

2.5372, 

0.0668, 

0.8937? 

58 

0,8896/ 




59 

> , ETA ( 7 ? 

J ) ? 3 -1 ? 1 5 ) / 



60 

0*5062, 

0® 4314, 

0. 0164 , 

0 * 606 8 ? 

61 

0.7078? 

0*9568? 

0*0308? 

0*8090? 

62 

0.8494, 

1.3834, 

0*0416? 

0* 8697 « 

63 

0.8797? 

1.6186? 

0*0476? 

0*8899? 

64 

0*8954, 

1*8618, 

0*0544? 

0.9000? 

65 

0*9010, 

2*0000? 

0 * 0600 f 

0® 9000 ? 

66 

0*8980, 

2.0824, 

0 « 0660 9 

0*8925, 

67 

0*8793/ 




68 

>,ETA( 8 , 

rJ)fJ s I«15)/ 



69 

0*5051? 

0.4834? 

0*0196? 

0* 6068 ? 

70 

0*7078, 

0*8814, 

0*0316? 

0.7665? 

71 

0*8090? 

1.1442? 

0.0392? 

0.8292? 

72 

0,8494? 

1*3696? 

0*0460? 

0*8596? 

73 

0.8697? 

1.5950? 

0*0528? 

0*8808, 

74 

0*8848? 

1.7450, 

0*0596? 

0*8848, 

75 

0*8788? 

1*8156, 

0*0664? 

0.8697? 

76 

0.8590/ 




77 

) ? ET A { 9 

, J)* J*X?155/ 



78 

0 * 4909, 

0*3372, 

0.0159? 

0 • 5380? 

79 

0 « 606 8 9 

0 * 6754, 

0*0284, 

0*5573? 

80 

0*7078? 

0*9196, 

0*0368? 

0.7463? 

81 

0.7776? 

1* 1254? 

0*0442? 

0*8090? 

82 

0.8191, 

1*3138? 

0*0524? 

D © 8302 ? 

83 


99 



6 

U3696? 

0.0556* 

0,8347, 

1.4068, 

0.0580, 

0.8363, 

84 

7 

1 ® k 450 ? 

0.0612, 

0.8322, 

1.4638, 

0.0640, 

0.8241, 

85 

8 

1 « 4676 9 

0.0668, 

0.8090/ 




86 

DATA ( CN( 10. 

J ) » DH( 10 , 

J ) , ETA 1 10, 

J ) , J=1 ,12) / 



87 

1 

0® 1 872 * 

0.0132, 

0.4257, 

0.2814, 

0.0180, 

0,4747, 

83 

2 

0*3804? 

0,0228, 

0.5056, 

0.4686, 

0.0268, 

0.5359, 

89 

3 

0*5528? 

0.0314, 

0.5683, 

0.6382, 

0.0352, 

0.5941, 

90 

4 

0*5392? 

0® 0380, 

0.6068, 

0.7362, 

0.0412, 

0.6178, 

91 

5 

0.7696, 

0,0440, 

0.6240, 

0.8068, 

0.0476, 

0.6310, 

92 

6 

0 ® 3 254 ® 

0*0504* 

0.6265, 

0.8304, 

0.0530, 

0.5118/ 

93 

f. 


END 






94 


$1 BfFTC 

LPTDAT DECK 






BLOCK DATA 






1 

COMMON / LTURB/TFF(15) ,CN( 15 » 15 ) » DH< 15, 15 ) , 

ETAC15»15)i?N*MPCl5J 

2 

DATA M, NP/ 11 

*9*15*12* 

9? 4*0/ 




3 

DATA T FF / 

88*470® 

102*795? 

116.835, 129.330, 

141.045, 

4 

1 

145.725, 

150® OOOf 

153*345? 

156.405, 159.780, 

163.170,4*0./ 

5 

DATA IZHl 1, 

J ) ? DHC 1 « 

J ) ? ETAf 1? 

J ) , J-l » 15 ) / 



6 

1 

0.3682, 

0*0018, 

0*7120? 

0.5336, 

0*0026? 

0.7300, 

7 

2 

0.7365, 

0*0035® 

0*7472? 

0.9754, 

0*0044? 

0.7300, 

8 

3 

1.2146, 

0*0051® 

0*7140? 

1.4173, 

O e 0056? 

0.7000, 

9 

4 

1.5201, 

0*0059® 

0*6850? 

1.7673, 

0* 0061 * 

0.6730, 

10 

5 

2.0247, 

0*0062? 

0*6452? 

2.2827, 

0*0061? 

0.6200, 

11 

6 

2.4565, 

0*0057® 

0*6000? 

2.6137, 

0*005 3-? 

0.5750, 

12 

7 

2.3166, 

0*0044® 

0*5310? 

2.9456, 

0*0035? 

0.5000, 

13 

8 

3.3138, 

0*0001? 

0*3850/ 




14 

DATA t CNI 2® 

J 1 ? DHC 2® 

J ) ? ETA C 2? 

J ) , J = l» 15 ) / 



15 

1 

0® 3582* 

0 * 0026® 

0*8000? 

0.5518, 

0*0039? 

0. 8100, 

16 

2 

0® 7 919$ 

0*0054® 

0*8200? 

1.0672, 

0» 0069® 

0.8300, 

1? 

3 

1*2882* 

0® 0080® 

0*8300 ? 

1.4446, 

0*0087? 

0.8290, 

18 

4 

1*5937* 

0*0096? 

0*8100? 

1.8954, 

0*0101? 

0.3000, 

19 

5 

2*0519* 

0*0104® 

0*7850? 

2.2273, 

0*0107? 

0. 7600, 

20 

6 

2*3747* 

0*0108® 

0*7450? 

2.6229, 

0*0106? 

0.7000, 

21 

7 

2*3720* 

0*0101? 

0*6800? 

3.0555, 

0® 0094? 

0.6450, 

22 

8‘ 

3 ® 3 138 * 

0*0077® 

0*5900/ 




23 

DATA C CN( 3 « 

J 1 ® DHC 3? 

, 3 > ? ET A C 3? 

.J), J-l, 15)/ 



24 

1 

0*3582* 

0*0031® 

0 *8000? 

0.5911, 

0* 0051 * 

0.8300, 

25 

2 

0*8555? 

0*0071? 

0*8600? 

1.0764, 

0*0087? 

0.8630, 

26 

3 

1*2519* 

0*0099? 

0*8670? 

1.4354, 

0*0111? 

0.8700, 

27 

4 

1*5201* 

0*0122? 

0*8720? 

1.8409, 

0®0134? 

0.8720, 

28 

5 

2*0247* 

0® 0143? 

0*8700? 

2.2455, 

0*0152? 

0.8670, 

29 

6 

2 * 4 302 * 

0*0157? 

0*8600? 

2.5956, 

0*0162? 

0.8500, 

30 

7 

2*7791 * 

0*0166® 

0*8300? 

3.0555, 

0*0167? 

0*8000? 

31 

8 

3*3138* 

0*0164? 

0*7600/ 




32 

DATA (CNI 4, 

> J ) ? DH l 4 1 

> J ) * ET AC 4, 

i J ) » J*i » 15 ) / 



33 

1 

0*3 582 1 

0*0033? 

0® 7995? 

0.4237, 

0*0038? 

0 ® 8000 ? 

34 

2 

0*5310* 

0*0061® 

0*8400? 

0.8837, 

0® 0078? 

0« 8600? 

35 

3 

1 * 1047 * 

0*0096? 

0 *8680? 

1.2882, 

0*0110? 

0*8730? 

36 

4 

1 © 5 090 1 

0® 0126® 

0*8800? 

1.7482, 

0*0141? 

0*8830? 

37 

5 

2 * 0429 * 

0* 0159? 

0*8835? 

2.2091, 

0*0166? 

0*8830? 

3B 

6 

2*3747* 

0® 0174? 

0*8800? 

2.6047, 

0*0183? 

0*8740? 

39 

7 

2*3720, 

0*0191? 

0 9 8600? 

3.1291, 

0*0195? 

0*8350? 

40 

8 

3*3138* 

0*0197? 

0*8200/ 




41 


DATA CCNf 5 

? J ) * DHC 5 

? JUETAC 5 

,J),J=i,15)/ 



42 

1 

0*3 582® 

0*0036® 

0*7750? 

0.5065, 

0 * 0049 ? 

OeBOOO? 

43 

2 

0® 7 365 f 

0*0071? 

0 9 848 0? 

0.9754, 

0« 0092 9 

0 * 8600 ? 

44 

3 

1*2882* 

0*0119? 

0*8750? 

1.5647, 

0*0141? 

0*8900? 

45 
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4 

1.7301* 

0® 01 55, 

0®8912 ? 

1*9690, 

0*0172, 

0.8940, 

45 

5 

2© 0983 ? 

0*0181? 

0*8955, 

2* 2637 , 

0*0192? 

3*8970, 

47 

6 

2*4332* 

0.0202, 

0*8961? 

2 » 6691 # 

0*0214? 

0*8900, 

4B 

7 

2*9456* 

0*0226, 

0 *8790? 

3*1846? 

0*0235? 

0*8671, 

49 

8 

3*3 138 ? 

0® 0239, 

0*8600/ 




50 


DATA 1 CMC 6 9 

J ) , DHf 5 , 

J ) , ETA C 6, 

33, 3=1,153/ 



51 

1 

0* 3 582 * 

0® 0038? 

0*7600? 

0*6164? 

0*0064? 

0®8000, 

52 

2 

0*8372, 

0*0087? 

0*8450, 

1*1047, 

0*0113? 

0*8600? 

53 

3 

1*2882? 

0® 0130, 

0*8730, 

1*5283, 

0*0152? 

0*8900? 

54 

4 

1*7482* 

0*0171? 

0*8950, 

1*9509, 

0.0187, 

0*9000, 

55 

5 

2*2133, 

0*0209, 

0 *9005? 

2*4302? 

0® 0226, 

0*9010, 

55 

6 

2*6510, 

0 « 0244, 

0*9004, 

2.8619, 

0.0259, 

0*9000, 

57 

7 

3*1384? 

0®0286, 

0*8900, 

3.2584, 

0*0303? 

0*8800, 

58 

8 

3*3 138, 

0*0319, 

0*8735/ 




59 


DATA iZHi If 

J)*DHt 7? 

J ) ? ETA f 7, 

J 3 , 3 = 1? 15 3 / 



60 

1 

0*3582? 

0*0044, 

0*7310, 

0® 7728, 

0*0089? 

0.8000, 

61 

2 

1*3129? 

0*0115, 

0*8300, 

1*2659, 

0.0141? 

0® 8600 $ 

62 

3 

1*4729? 

0*0162, 

0*8750, 

1*6785, 

0.0181, 

0 « 8 900 , 

63 

4 

1*8409, 

0.0197, 

0*8930, 

2*0247 , 

0.0216, 

0*8975, 

64 

5 

2*1901, 

0*0235, 

0*8999, 

2.3000, 

0.0250, 

0*9000, 

65 

6 

2® 3 929, 

0*0265, 

0*8980? 

2.5038, 

0*0284? 

0.8937, 

65 

7 

2*5 583 * 

0*0296, 

0 ® 8 90 0 , 

2*6137, 

0.0314? 

0*8799? 

67 

8 

2*5319 f 

0*0329, 

0*8710/ 




68 

DATA CCNC 8* 

J ) , DHI S, 

J S , ETA C 8? 

J), 3*1, 15)/ 



69 

I 

0* 3682 * 

0* 0048, 

0*7100? 

0*6072, 

0® 0078 * 

0*7450, 

70 

2 

0*7919? 

0*0102, 

0.7680? 

0*9754, 

0.0124, 

0*8000? 

71 

3 

1.2 337 ? 

0*0153, 

0.8380, 

1*4548, 

0*0177, 

0 © 8600, 

72 

4 

1*6383? 

0*0201, 

0*8712, 

1*8409, 

0.0226, 

0 * 8780? 

73 

5 

1*9509? 

0*0242, 

0*8800, 

2*0801? 

0.0261? 

0® 8775 , 

74 

6 

2*1537? 

0.0274, 

0*8760? 

2 « 2091 ? 

0® 0285 , 

0.8722? 

75 

7 

2*2537? 

0*0299, 

0*8660? 

2 ® 3009, 

0.0314, 

0 * 8 600 9 

75 

8 

2*3351, 

0*0321, 

0*8480/ 




77 


DATA CMC 9, 

JKDHC 9, 

JI.ETAt 9, 

J), 3=1,153/ 



78 

1 

0® 3 682 * 

0® 0054, 

0*6780, 

0*5518, 

0*0080? 

0*7000? 

79 

2 

0*6529? 

0.0096, 

0*7125, 

0*8282? 

0.0119? 

0® 7350, 

80 

3 

1*3129? 

0*0141, 

0*7690, 

1*1691? 

0.0160, 

0.8000? 

81 

4 

1.2337, 

0*0169, 

0*8060, 

1* 3809® 

0*0188, 

0.8225, 

82 

5 

1.5 283 * 

0*0209, 

0*8395, 

1*6201, 

0.0223? 

0.8450, 

83 

6 

1*7482, 

0® 0244, 

0*8470? 

1.8409, 

0.0263? 

0 » 8445, 

84 

7 

1*3954, 

0*0279, 

0*8330, 

1.9147, 

0*0289? 

0. 8235 * 

85 

8 

1*9237, 

0*0303, 

0.8080/ 




85 

DATA CMC 10, 

Jl ,DHilO, 

J 3 ? ET A ( 10? 

33,3=1,121/ 



87 

1 

0.3582, 

0*0061, 

0*6380? 

0*4782, 

0.0078, 

0.6550, 

88 

2 

0.5*47, 

0*0104, 

0*6700, 

0.7546, 

0*0122? 

0*6850, 

89 

3 

0.3555, 

0*0139, 

0.7000, 

0*9754, 

0.0157? 

0.7110? 

90 

4 

1.1347, 

0*0181? 

0.7180, 

1*2015? 

0 « 0201 ? 

0.7180? 

91 

5 

1.2701, 

0*0217, 

0*7170, 

1*3073, 

0*0230, 

0.7140? 

92 

6 

1.3365, 

0*0244, 

0*7000, 

I® 3407? 

0.0251? 

0*6890/ 

93 

DATA C CMC 11, 

JhOHilh 

J ) , ETA C Ilf 

31 , 3=1? 93/ 



94 

1 

0*3582, 

0®0069? 

0*6000, 

0*4418? 

0*0086? 

0.6000? 

95 

2 

0*5518, 

0*0106, 

0*6120, 

0*6447? 

0.0123? 

0*6170? 

96 

3 

0*7365, 

0*0141, 

0*6210, 

0*8282? 

0.0159, 

0.6258, 

97 

4 

0*8837, 

0*0172, 

0*6250? 

0.9391? 

0.0186, 

0.5230, 

98 

5 

0*9715? 

0*0201, 

0*6009/ 




99 


END 






100 


101 



SIBFTC ETAA34 DECK 

SUBROUTINE ETAAB ( FAR, EM6, P6, ETA, ETAAOS, ETAASV , P6DS, P60SAV, AM6DS » A 1 

1M6DSV, IDES,FAR7DS,FAR7SV) 2 

DIMENSION FART(25),ET ABRTI 25)»EM6T(7),DELM6(7) ,P6T( 141 , DELP6U4J 3 

DIMENSION X { 31 »Yl 3) 4 

DATA FART/. 0390, .058 5 ,.0732, .0878 ,. 0976, . 1 171, . 1268 ,. 1463 ,. 161 9, 5 

1.1834. . 1951.. 2195*. 2439, .2927, . 341 5, . 4146, . 4634, . 5366, . 5341 ,. 731 7 , 5 

2. 8293. . 9268. 1.000. 1.0634. 1.7/ 7 

DATA ETABRT/. 9400,. 9887, 1.01 93, 1.0306, 1.0227,. 9572,. 9377,. 9207, 8 

1.9354. . 9626. .9773.1.0193.1.0532.1.077.1.0781.1.077.1.0747.1.0668, 9 

21.0578.1.0510.1.0374.1.0192. 1.00. . 9626.. 9151/ 10 

DATA EM6T/ 1.00, 1.071, 1.190,1.309,1.428,1.547,1.666/ It 

DATA 0ELM6/0.,.013,»041,.073,.110,.147,.187/ 12 

DATA >6T/. 220,. 2267, .250,. 300,. 3333,. 3767,. 4167,. 500,. 5833,. 6667, 13 

1.75. . 3333. .9167.1.0/ 14 

DATA DELP6/-. 142, -.125, -.10, -.075, -.062, -.05, -.041, -.027, -.01 9, 15 

1-. 013, -.008, -.004, -.0021,0./ 15 

IF mES.NE.il GO TO 5 17 

DO 1 <=1,25 18 

1 ETABRT(K)=ET ABRT (K)»ETAADS /ETAASV 19 

DO 2 <=1,25 20 

2 FART(<)=FART(K ) *FAR7DS/F AR7SV 21 

DO 3 <=1,7 22 

3 EM6T ( < )*EM6T ( K ) *AM6DS/AM6DSV 23 

DO 4 >1 = 1,14 24 

4 P6T(M)=P6T(M)*P6DS/P6DSAV 25 

ETAASV=ET AADS 26 

P6DS A/=P6DS 27 

FAR7S/=FAR7DS 28 

AM6DS V= AM6DS 29 

RETURN 30 

5 CONTINJE 31 

N=0 32 

IF (FAR. GT. 0.0671 GO TO 8 33 

DO 6 J =1, 25 34 

6 IF ( FAR. GE. FART ( J 1 1 N=J-1 35 

IF (N.EQ.O) N=1 36 

IF (N.3E.24) N=23 37 

DO 7 1=1,3 38 

NN=N-1H 39 

X ( I 1 =F ART ( NN 1 40 

7 Y(I 1-ETABRTINN) 41 

CALL 5 ARABO (X, Y,FAR , ETA1) 42 

GO TO 9 43 

8 ETA1=-2.*FAR+.1948 44 

9 M=0 45 

DO 10 J=1 , 7 45 

10 IF ( EN5.GE. EM6T ( J 1 1 M=J-1 47 

IF (M.EO.O) M* 1 48 

IF (M.3E.6) M=5 49 

DO 11 1*1,3 50 

MM*M-1U 51 

X ( I 1 =E N6T ( MM 1 52 

11 YIIS =0ELM6 { MM 1 53 

CALL PARABO (X, Y,EM6,C0R1> 54 

L=0 55 

DO 12 J*1 » 14 56 

12 IF (P5.GE.P6Tl J> 1 L=J-1 57 

IF ( L.EQ.O) L= 1 58 

IF (L.GE.131 L=12 59 

DO 13 1=1,3 60 

LL=L-1U 61 

XII 1 =P 6T( LL 1 62 
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13 


Y { 1 ) =0 ELP6 ( LL ) 63 
CALL PARABO (X*Y*P6*C0R21 6^ 
ETA=ET Al* ( 1«~C0R1 & *C U*COR2l 65 
RETURN! 65 
END 67 


$ I BFTC FRATl 3 DECK 

SUBRDJ FINE FRASHO C PRAT 1 Q* ARAT 10, OF I 1 

DIMENSION PR{30)^ARC 10 J ? CFR { 30 9 10 ) «XX(3)«YYC3) ®ZZ(2) 2 

DATA PR/1.0, 1*25* 1.5* 1.75, 2. 0,2* 25, 2 .5* 2. 75,3. 0» 3.25 » 3*5 »3. 75 »4.D V 3 

14«25,4.5,4»75,5»,5.5?6®,6*5y7.,b.59®,ll®,13»,15«»17®,19*,21®»23./ ^ 

DATA AT/ 1.0,1. 05,1. 092,1. 228,1. 318,1.423,1. 8, 1.9,1. 97, 2. 15/ 5 

DATA ( CFR( I, 1), 1=1*180)/ 6 

1.971.. 975. .978.. 980. . 981 .. 980. . 9784. . 9765 .. 9742 971 5 , 7 

2.9688, .9658, .9632,. 960,. 957,. 9538, .9506,. 9445,. 938,. 932,. 927,, 91 8, 8 

3.910., 397,. 8855, .876, .867, .859, .85 15,. 844, 9 

4.963., 966, .970, .9743, .978, . 9805, . 982 9805, . 9786 9762 974, . 971 8 , 10 

5.9693. . 967.. 9645.. 962.. 9595.. 954.. 949.. 944.. 9395.. 9308., 9238, 11 

6.9117. . 901.. 892.. 884. .8762.. 869., 862, 12 

7.956., 9605,. 9638,. 96 7,. 970,. 9731,. 9754,. 9775,. 9795,. 981,. 930,. 97 8, 13 

8.9761. . 9742. .9723.. 9 702. .968. . 9637. . 9594. .9554. . 951 7. . 945 9387 , 14 

9.9276. . 9177. .9082.. 8998. .891 .. 883. . 8752 , 15 

$.947,. 949,. 95 17, .954, . 957, . 9601 , . 9632, , 9668, . 971 9737 976 ,. 977 7 , 15 

$.978,. 9772,. 976, .975 2 ,.9 74,. 970,. 965 5,. 9 637,. 9603,. 95 5,. 950,. 940 3, 17 

$.9317, .9232, .915, .907,. 8996, .892, 18 

$.949,. 9502,, 9508 ,.9473,. 9438,. 941,. 939,. 940,. 950,. 956,. 9605,. 964, 19 

$.967,. 968,. 9692, .970, .9703,. 9698, .9696,. 9684,. 966,. 960,. 9444, 2 0 

$.9438,. 9347,. 9265,. 9193, .9 128, . 9067, . 901 , 21 

$.948,, 9485, .9487,. 9484, .947, . 9435, . 936, . 9275 91 85 9155 ,. 9155 , 22 

$.929,. 941,. 9455,. 950, .953, .9558,. 9591,. 9608,. 9609, .9601,. 957, 23 

$.95 31, .9448,. 9362,. 9279,. 9188, .910,. 901,. 8921/ 2 4 

DATA CFR( 1,1), 1-181, 300)/ 25 

1.808., 815,, 8245,. 833, .8418,. 852,. 861,. 871,. 8811,. 892,. 903,. 9142, 26 

2. 924.. 935.. 9428.. 9505.. 958.. 968.. 9748.. 9784.. 9808.. 982.. 9816, 27 

3.9778. . 974., 9695, .9646, . 9598, . 9543, . 9487, 2 8 

4.796.. 304. .8121.. 82. .8291. .838.. 8465. .856.. 8654.. 8763.. 8862, 29 

5.8975, .9085,. 922,. 930, .939 ,. 946, . 9575, . 9655 971 975 9783 , 30 

6.9792. . 977.. 974.. 970. . 9665 .. 9623. . 958. . 9538 , 31 

7.792.. 7981.. 804. .812.. 8201.. 828.. 8367.. 846.. 8545.. 864.. 8 74, 32 

8,8837, .894, ,905,. 9146,. 9247, . 933, . 95, . 9613, . 966, . 970, . 9755, . 9763 , 33 

9.9782. . 9770. .9742. .970. .966. .961. .956, 34 

$.774,. 780,, 7871,. 794, .801, . 8087, . 8165 8247 ,. 833, . 841 850 ». 8583 » 3 5 

$.868., 378,. 8 87, .8962, .907, .9255,. 944,. 953,. 9592, .966,, 9705,. 9725, 36 

$.9718, .97, ,9685,, 9664,. 964, .9616/ 37 

Yf X1,<2»X,Y1,Y2) = <Y1-Y2)*(X-X1)/(X1-X2M-Y1 38 

N=0 39 

DO 1 J =1, 30 40 

1 IF (PRATIO.&E.PRU)) N=J-1 41 

IF (N. EQ.O) N=1 42 

IF IN.3E.29) M=28 43 

M=0 44 

DO 2 <=1,10 45 

2 IF (ATATIO.GE.ARIKS I M=K 46 

IF (M.EQ.10.0R.M.EQ.0) GO TO 5 47 

00 4 1=1,2 48 

LL=M+L -1 49 

DO 3 1=1,3 50 
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3 


NN=N*I-1 51 

XXC n = PRCNN) 52 

V Yin = CFR|NN*LL> 53 

CALL p ARABO (XX f YYjPRATI 0 ? ANS) 54 

4 ZZ f L ) = ANS 55 

CF = YC ARCH) *AR{ M+l), ARATIO^ZZI 1S*ZZ! 25 I 56 

RETURN 57 

5 WRITE (6*75 ARATIO* ARCIO) 58 

DO 6 I =1 ® 3 59 

NN=N*I-1 60 

XX ( I 5 = PR! NN ) 61 

6 YYCI)*CFRCNM 9 10) 62 

CALL ? ARABO C XX* YY* PRATIO* CF ) 63 

RETURN 64 

C 65 

C 66 

7 FORMAT f 8HOARATI 0=F7 ® 3* 4X* 26HOUT OF RANGEtUSE DATA FOR ? F7*3S 67 

END 68 


$IBFTC INPUT DECK 

SUBROUTINE I NPUT (LIJNIT* LOUN IT* ID*D*IT) 1 

DIMENSION DC 1 ) * IT! 1 5 2 


c 





* DEFINES 

ARGUMENTS 

AS ARRAYS 

3 

c 


CONSTRUCTION OF THE 

TABLE 

ITAB 



4 

c 








5 

c 

BIT 

STANDARD 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

6 

c 

NUMBER 

RETURN 

1 

2 

3 

4 

5 

7 

c 

0-2 


$ 

A-Z 

0-9C 5 

s 

OTH 

B 

c 

3-4 

DETPC 

R I OTH 

NLSF 




9 

c 

5-6 

OER 

TINL 

OTH PS 

CF 



10 

c 

7-8 

0-9*4*$ ) OTH 

* 8 A-Z = 

-!*/ 




11 

c 

9 

»® 5 A-Z 

OTH 





12 

c 

9-10 

• » 

A-Z 5 

0-94*® 

= $ 



13 

c 

10 

OTH 

$A-Z»)= 

/ 




14 

c 

10-11 

0-9* f-OTH 

4*8 { 

$ A-Z# 

5=/ 



15 

c 

12 

0-9 A-Z 

OTH 





16 

c 

12-13 

A-Z 

0-9 

OTH 




17 

c 

13-14 


OTH 

0-9 




18 

c 

15-16 

4** 

DE- 

OTH 




19 

c 

17-18 

T 

F 

OTH 




20 

c 

19-20 

0 

E 

OTH 




21 

c 

21 

3TH 

® 





22 

c 

21-22 

A-Z 

OTH 





23 

c 

23 

8 

OTH 





24 

c 

24 

$ 

OTH 





25 

c 

25 

= 

OTH 





26 

c 

26-27 

i 

A-Z 

OTH 




27 

c 

28-29 

) 

9 

OTH 




28 

c 

30 

i 

OTH 





29 

c 

31 

) 

OTH 





30 

c 

ERROR CODE DESIGNATIONS 




31 

c 

ROUT I ME TYPE 






32 

c 

10 

IX3TI 100 

ILLEGAL 

CHARACTER 




33 

c 

20 

ITABLI 200 

NAME TOO 

LONG 




34 

c 

30 

INMBRI 300 

TABLE FULL OR BAD 




35 

c 

40 

I NAME! 400 

SCALING 

ERROR 




36 

c 

50 

IARITI 500 

NAME NOT 

IN TABLE 




37 

c 

60 

INAMEN 600 

SDATAI 5 

INCOMPLETE 




33 


104 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


70 imuj 

700 FORMULA ILL FORMED 



39 


800 FUNCTION UNDEFINED 



40 

MCNVRT = 

TYPE OF 

LEFT HAND VARIABLE 



41 

KCNVRT = 

TYPE OF 

CURRENT VARIABLE 



42 

ITYPE 

MEANING 




43 

1 

REAL 




44 

2 

INTEGER 




45 

3 

DOUBLE PRECISION 



46 

4 

TYPELESS 

OR NO CONVERSION 



47 

5 

SUBROUTINE 



4S 

6 

FUNCTION 




49 

FOR HAT OF TABLE 



50 

1ST WORD 

i 012 

3456 7-31 



51 


TYPE 

NUMBER OF WORDS ADDRESS 


52 

NEXT 1 

TO 15 WORDS THE NAME, 4 CHARACTERS TD THE WORD 


53 

DIMENSION I FT C 311* IPTABC 21)* ITABC 

65) 


54 

DIMENSION ANAMEl 15 > , IMAGEI80) , IMASE1 ( 81 > , IPARAMt 9) 


55 

9 

* KSTACK 1 27 ) * NAME! 15 ) ,RVALUE<2) *STACKC27) 


56 






57 

COMMON 





58 

» /I COMM 1/ 

VALUE 

* I COMP * I FNTYP 

* I MAGE1 9 1 RAD I X 

* I SUB 

59 


* KCH 

* KCNVRT *KCOUNT 

* KDI F * KFLDI 

*KFLD2 

60 


* LCQMP 

t LCNVRT , LEVEL 

* LFRT * LOOK 


61 


* MCNVRT 

* MD I F * MODALL 

* MSTOR 


62 


* NAME 

* TERROR * NONEW 

9 NOT ARG 


63 


* SMCHR 

* TEST *ERMARK 



64 

» / 1CNST I / 

BLANK 

tBLANKS * DOLLAR 

* EOS 


65 


* ICOMMA 

tlOOLAR * I FT 

* I PT AB *ITAB 


66 


* K AM10 

* KBPC 9 KBPW 

9 KCPCD * KERT YP 


67 


$ KZERO 

* NOPRNT *TAB1 



68 

« / I PARAM/ 

ABORT 

* < IUNI T * KOUNI T 

tLIMALF • LOCK 

* LOCK 

69 


* NOL 1ST 

* NSTDI R * TRACE 



70 

•/ISTAKI/ 

STACK 

* I STDI M 9 KSTACK 

t LEVL1M 


71 






72 

INTEGER 

BLANK 

9 BLANKS tEOS 

tIDOLAR 9 TAB1 

* TRACE 

73 

» *CONTYP 

^STORED 




74 

DOUBLE PRECISION 

STACK* VALUE 



75 

LOGICAL 

ABORT 




76 



* STOP FOR ERROR 


77 

LOGICAL 

DOLLAR 




78 



9 TRUE IF A $T 

,$P, OR $C IS BEING 

PROCESSED 

79 

LOGICAL 

ERMARK 




80 



* ®TRUE* 

IF ANY ERROR HAS OCCURED 

81 

LOGICAL 

LIMALF 




82 



9 TERMINATE ALF CONSTANTS AT 

15 WORDS. 

83 

LOGICAL 

LOCK 




84 



* DO NOT 

STORE ANY INPUT DATA 


85 

LOGICAL 

NOLIST 




85 



8 DO NOT 

LIST INPUT CARDS 


87 

LOGICAL 

NONEW 




88 



8 DO NOT 

READ A NEW CARD* SET 

IN INPUT 

89 

LOGICAL 

MODALL 




90 



9 * TRUE* 

RETURN ALL CHARACTERS 

91 



« FALSE® 

DELETE BLANKS AND SKIP FOR E 

92 

LOGICAL 

SHORT 




93 



9 DO NOT 

STORE ALPHABETIC ANO 

RADIX CO 

94 



DIRECTLY INTO D ARRAY 


95 

LOGICAL 

SMCHR 




96 



9 SAME CHARACTER IS TO BE USED OVER BY 

97 

LOGICAL 

TEST 




98 



* STORE COMMA AT END OF CARD 

IF NEEDED 

99 

END 


100 


105 



o o o o o o 


EQUIVALENCE ( STACK, I STACK) , f VALUE, KVALUE * RVALUE ),{ NAME, ANAME ) 101 

EQUIVALENCE ( ICOMNI, ISUB), (IMAGE, IMAGED , i I PARAM, ABORT 5 102 

LOGICAL END2 103 

C 8 » TRUE® IF A SEND CARD HAS ALREADY BEEN FOUND 104 

KIUNIT =LIUNIT 105 

KOUNIT =LOUNIT 106 

C CALL DEBUGX 107 

LIMALF = .TRUE. 108 

DOLLAR = .FALSE. 109 

NOLIST = .FALSE. 110 

END2 « .FALSE. Ill 

MODALL = .FALSE. 112 

ERMAR< = .FALSE. 113 

LOCK * .FALSE. 114 

KERTYP = 0 115 

IFNTYP = -1 115 

LOCX=l 117 

L-LEVLIM+3 118 

DO 16 1=1, L 119 

16 KSTACK ( I ) =0 120 

LEVEL“0 121 

LFRT =3 122 

NOTARS = ISTD1M 123 

LCNVRT = 3 124 

C 8 DOUBLE PRECISION, STANDARD 125 

MCNVRT = 1 125 

KOI F = 1 127 

MDIF = 1 128 

1 NONEW = .FALSE. 129 

SMCHR = .TRUE. 130 

CALL ICHAR2I $9470,24) 131 

C 8 ERROR IF $ IS NOT 1ST CHARACTER READ 132 

LDOLAR = KCOUNT 133 

C 8 CARD COLUMN OF LAST DOLLAR SIGN 134 

NONEW*.TRUE. 135 

8 $DATA MUST BE ON A SINGLE CARD 136 

D E OTH 137 

CALL I CHARI ( $3, $9470, 19) 138 

( A-Z OTH 139 

4 CALL I CHARI ($4, $9470, 26) 140 

CALL ISUB1 141 

CALL I CHAR2 ( $9470, 31 ) 142 

8 ERROR IF NO ) 143 

NONEW*. FALSE. 144 

IT ( 1 ) * I SUB 145 

CALL DEBUG 2 ( 5HSETN0, IT (1 ) ) 146 

CALL DEBUG 2( 6HKERSIN , KERS I N ) 147 

IF { ID.NE. I T ( 1 ) ) GO TO 99 148 

C 8 RETURN BECAUSE WRONG DATA SET 149 

IF (irm.LT. 0 ) GO TO 9370 150 

C 9 TABLE FULL OR BAD 151 

GO TO 19 152 

3 IF (END2) GO TO 99 153 

EN02 * .TRUE. 154 

NONEW * .FALSE. 155 

5 CALL I CHAR2 ($1,9) 156 

C * PASS LETTERS AND 157 

GO TO 5 158 

9470 KERTYP = 470 159 

GO TO 999 160 

99 CONTINUE 161 
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C CALL DEBUG 2 ( 6HSTATMT *99 ) 162 

KCH - IDQLAR 163 

KCOUHT * LDOLAR 164 

C 8 NEXT CALL BEGINS PROCESSING AT THIS CARD COLUMN 165 

I F ( ERM ARK I ITC 1) = -IABSIITC II ) 166 

C 9 WARN PROGRAMER OF POSSIBLE ERRO 167 

IF C ERM ARK® AND. ABORT ) GO T0789 168 

RETURN 169 

789 WRITE! 6® 787 5 170 

787 FORMAT { 44H ERROR HAS OCCURED AND ABORT IS .TRUE*, STOP ) 171 

STOP 172 

C BEGIN TO INPUT THE DATA 173 

C STATEMENTS 19 AND 20 ARE THE SWITCHBOUSE 174 

C CONTROL COMES HERE FOR NEW DIRECTION® 175 

C LFRT * 0 INDICATES THAT THE PREVIOUS TASK WAS COMPLETED® 176 

19 CONTINUE 177 

C CALL DEBUG 21 6HSTATMT ? 19 ) 178 


TEST*. FALSE® 

GO TD 21 

120 DOLLAR * .FALSE. 

20 CONTINUE 

C CALL DEBUG 2 ( 6HSTATMT *20) 

TEST*. TRUE. 

C ENTRY ICHAR4 LOADS LCOMP WITH TAB NO 10 AND RETURNS ON TAB N3 7 

C OTH * 9 A-Z= -*(*/ 

21 CALL ICHAR4U31* $32, 7* 101 

C NOW WE TEST LCOMP ON EACH OF THE 3 POSSIBLE RETURNS. THIS IS A 12 WAY 
C 0-9® * $ ) 

GO T3 (203*510* 64 , 430 J , LCOMP 
C ? 9 A-Z * 

31 GO T3 (460*202*530* 450) * LCOMP 

C - ( * / 

32 GO T3 ( 520*420 * 440*441 1 * LCOMP 

64 IF C LFRT. NE® 0 ) GO TO 9770 

LDOLAR * KCQUMT 

C * CARD COLUMN OF LAST DOLLAR SIGN 

DOLLAR * «TRUE. 

C CALL DEBUG 2 l 6HSTATMT, 64) 

TEST*. FALSE® 

CALL ICHAR4($9170, $9170*3, 5) 

C DE T P C 

GO T3(99?10G, 150,630) * LCOMP 
100 CALL ITABLIC IT) 

IF CKERTYP) 999,120*999 
C 
C 

C SPARAMETER 

C { A-Z OTH 

150 CALL I CHAR I ( $150* $9170*26) 

151 CALL I CHAR2 ($152,0) 

C * GET FIRST CHAR OF NAME ««D0N*T BRAN 

152 CALL I NAMEN 

CALL I LOOK IC$153*IPTAB) 

9570 KERTYP = 570 
GO T0999 

153 CALL ICHAR2( $9170,29) 

C 9 ERROR IF NO = 

CALL I CHAR2C $9170,10) 

C 9 GET CHARACTER* SE PER ATE PART OF 


179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 
223 
22 i 
222 
223 


CALL INMBRI 

KCNVRT=IFLD(0 9 3,XPTABCL00K! ) 
CALL I CNVT 1 1 3 * KCNVRT ) 
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C 8 CONVERT FROM DP TO TYPE OF VARIABLE 224 

IPT = IFLDS7 ? 25* IPTAB ( LODKI ) 22 5 

IPARAMUPTI = KVALUE 22S 

C ) * OTH 227 

CALL I CHAR! ($1519 $9170* 281 228 

C IF C TRACE® GT ® 0 ) CALL DEBUGX 229 

C 5 IF TRACE TURNED ON PUT ON HEAD 230 

GO TO 120 231 

C 8 GD TO SWITCH HOUSE TEST FOR IMSERTIO 232 

C 233 

C 234 

C CONSTANTS = LOG I CAL * NUM ER I C * ALPHAMER I C * R AD I X* 235 

201 ASSIGN 220 TO CONTYP 236 

C 8 RADIX 237 

IFNTYP = -1 23B 

GO TO 210 239 

202 ASSIGN' 230 TO CONTYP 240 

C 88 241 

GO TO 210 242 

203 ASSIGN 250 TO CONTYP 243 

C 8 NUMER 1C? LOGI CAL 244 

C 245 

C 246 

C ALL CONSTANTS 210 247 

210 LOP * 0 248 

SHORT s « TRUE « 249 

MSTOR = 0 250 

C CALL DE8UG2 ( 6HST C0N*210S 251 

IF (LEVEL® EQ« 0) L EVEL=3 252 

IF ( KST ACK f LEVEL $ ®EQ ® 1 ) GO TO 9770 253 

C 9 TWO CONSTANTS IN ROW E»G« 254 

GO TO CONTYP $ (220§ 23 0§250) 255 

C 256 

C 257 

C RADIX CONSTANTS 220 258 

C ( A-Z OTH 259 

220 CALL I CHAR2 ( $9 170* 30 ) 260 

CALL I SUB I 261 

NAME 121 = 0 262 

221 CALL ICHAR2I$2215*29) 263 

C 9 ERROR IF NO COMMA AFTER BASE NUMBER 264 

GO TO 9170 265 

2215 CALL ICHAR2( $9170*12 1 266 

C 8 ERROR IF M3 NUMBER 267 


268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 
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222 I RADI X = I SUB 
SMCHR = * TRUE* 

223 CALL I SUB I 
MSTOR = MSTOR 4-1 
NAME ( MSTQR ) = ISUB 

IF ( MS TOR ® GE ® 1 5 > GO TO 225 
C ) * OTH 

224 CALL ICHARIC $2 23* $9 170*28) 

I RADIX = 10 

GO TO 240 

225 ASSIGNS 224 TO NEXT 
GO TO 241 

C 

C 

C HOLLERITH CONSTANTS 230 

230 MODALL = © TRUE® 

TEST = ©FALSE® 

NAME ( 2 ) = BLANKS 



ooooo o non oooonoo non o ooo 


231 CALL IMAHEN 

I F I * NOT® HOD ALL 5 GO TO 240 

C * END OF CONSTANT 

1 F ( L IM ALF 5 GO TO 265 
C L3NG CONSTANT GOES TO 234 

234 ASSIGN 231 TO NEXT 
GO TO 241 


STORE ALF * RADIX 240 

240 ASSIGN 260 TO NEXT 

IF ( MS TOR-2 ) 242*2405,241 

2405 IF (LFRT*EG*1> GO TO 242 
CALL I CHAR 2 ( $2406,29 ) 

SMCHR = « TRUE© 

GO TO 242 

2406 SMCHR = ® TRUE® 

241 SHORT = ©FALSE* 

IF (LFRT*NE*0) GO TO 265 
CALL 3EBUG2C6HST 241,0) 

242 KVALUE * NAME! 1 ) 

RVALUE i 2 > = ANAME ( 2 ) 

IF ! NOT ARG* GT® LEVEL ) LCNVRT = 4 
CALL 0EBUG2 ( 6HST 242,0) 

CALL 0E8UG2 C 6HSH0RT , SHORT ) 

CALL 0EBUG2 ( 6HLFRT , LFRT) 

243 IF C SHORT ) GO TO 255 
DO 245 1= 1 9 MSTOR 

IF { LOCK 5 GO TO 245 
DILOCK) = ANAME { I ) 

245 LOCX = LOCK 4- 1 

246 GO TO NEXT, 1224,231,260) 

SEE NEXT AND MEANING 

25 0 9 ALF OR I AND RADIX 

224 MORE THAN 15 ELEMENTS IN RADIX FIELD 

231 MORE THAN 15 ELEMENTS IN ALF FIELD 


NUMERIC 4- LOGICAL 250 

250 TEST = ©TRUE® 

CALL INMBRI 
255 CALL IARITI 
LFRT = 1 

IF (KERTYP) 999,20, 999 


RESET STACK BECAUSE IT HAS NOT USED 
260 LEVEL * 0 

TEST = ® TRUE® 

CALL I CHAR2 i $19, 29) 

8 SKIP COMMA 

KERTY* = 171 
GO T3 999 

265 KERTYP = 270 
GO ID 999 

TEST EMPTY PARENTHESES 

400 IF ( i KSTACM LEVEL-1 ) 4-KSTACK ! LEVEL-2) )®NE®0) GO TO 997 
CALL DEBUG 2C6HSTA i 1,400) 

CALL STACKP 

8 PRINT STACK 

401 LEVEL = LEV EL-3 


286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 
315 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 
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c 

EMPTY FUNCTION ARGUMENT IS NOT A CURRENT LEFT SIDE 

348 


IF (KSTACKC LEVELS ® LT *6 S GO 

TO 404 


349 

405 

VALUE= 0« 



35 D 


GO TO 403 



351 

404 

RVALUE (1) = 0 (LOCK) 



352 


RVALUE ( 2 ) = 0 { LQCX+l 1 



353 


CALL I CNVTI ( MCNVRT, 3 S 



354 

403 

CALL IARITI 



355 


GO TO 20 



356 

cuctmuuctttti 



357 

420 

IF { LEVEL « EQ«0 1 LEVEL=3 



358 

C 

CALL DEBUG 2(6HSTAT ( ,420) 



359 

422 

LOP = 0 



360 


LFRT = 1 



361 


LEVEL=lEVEL+3 



362 

C 

CALL STACKP 



363 

C 

8 

PRINT 

STACK 

364 


IF C KSTACKC LEVEL-3 I -1 S 20, 

99? , 20 


365 

cnnminnmn 



366 

430 

IF f LE VEL®LT®6 ) GO TO 997 



367 

c 

CALL DEBUG 2C6HSTAT ) f 430S 



368 

c 

CALL STACKP 



369 

c 

S 

PRINT 

STACK 

370 


LFRT * i 



371 

431 

IF (KSTACKI LEVEL )-l ) 400, 

432, 997 


372 

432 

DO 433 1=1,3 



373 


VALUE = ST ACK C LEVEL ) 



374 


KSTACKC LEVEL 1 =0 



375 


LEVEL=LEVEL-1 



376 

433 

CALL IARITI 



377 


IF CKERTYPS 999, 20, 999 



378 

{ KQP=2 1 



379 

440 

K0P=2 



380 

c 

CALL DEBUG 2 ( 6HSTAT *,440) 



381 


GO TO 445 



382 

C/////////// /////// CK0P=3) 



383 

441 

KOP = 3 



384 

C 




385 

C 

CALL DEBUG 2C6HSTAT /»441) 



386 

445 

IF C LOP*NE® 0 > GO TO 997 



387 

c 

CALL DEBUG 2 C 6HSTATMT ,4451 



388 

c 

CALL STACKP 



389 

c 


PRINT STACK 

390 


LOP = 1 



391 


LFRT = 1 



392 


IF ( LEVEL »EQ®0 ! LEVEL—3 



393 


IF (KSTACKI LEVEL). NE. 1 ) GO 

TO 997 


394 

444 

VALUE* STACK ( LEVELS 



395 


KST AC< 1 LEVEL ) =0 



396 


LEVEL = LEVEL-1 



39? 


CALL IARITI 



398 


IF ( KE RTYP® NE® 0 I GO TO 999 



399 

446 

KSTACU LEVELS =KOP 



400 


LEVEL* LEVEL+1 



401 

C 

CALL STACKP 



402 

C 



PRINT STACK 

403 


GO TO 19 



404 

c==== 

==== = = = = = = = 



405 

450 

IF ( LEVEL * NE® OS GO TO 997 



406 

c 

CALL DEBUG 2I6HSTAT =,450) 



407 

451 

LOP=0 



408 


LOCK = LOOK 



409 
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no no oooooo 


MCNVRT = KCNVRT 
MDIF = KDIF 
LCNVRT * 3 

C ’ DOUBLE PRECISION, STANDARD 

LEVEL=3 
LFRT=D 

KSTAC<( 3 ) =0 

CALL 3EBUG2 ( 6HL0CX ,L0CX) 

CALL DEBUG2(6HMCNVRT, MCNVRT) 

GO TO 19 

460 CONTINUE 

CALL DEBUG 2 i 6HST AT f *460) 

CALL STACKP 

s PUNT STACK 

IF CLE^EL - 31 461*463* 600 

461 IF (LEVEL»NE«0) GO TO 997 

462 LEVEL* 3 

463 IFtl=RT*EQ*0SG0 TO 480 

# INCREMENT LOCK WITHOUT STORING 
LFRT WILL BE ZERO AFTER $ EXPRESSION OR FOR CONSECUTIVE COMMAS 
470 IF CKSTACKI 3KNE.I) GO TO 997 
471 DO 475 I = 1*2 

VALUE =ST ACK i LEVEL } 

KSTACM LEVEL ) =0 
LEVEL =LEVEL“1 

475 CALL IARITI 

IF C KERTVP«ME»0) GO TO 999 

476 KST ACK C 1)=0 

CALL ICMVTI I LCNVRT* MCNVRT ) 

474 IF C LOCK I GO TO 480 
D { LOCK ! = RVALUE! 1) 

IF I MCNVRT « £Q# 3> DILOCX*!) = RVALUE 1 2 ) 

480 L0P==0 

CALL STACKP 

8 PRINT STACK 

LFRT-3 

LOCX = LOCX + MDIF 
LEVEL*0 
LCNVRT * 3 

C « DOUBLE PRECISION* STANDARD 

GO TO 19 

+ K0P = 4) 

510 K0P=4 

C CALL DEBUG 2 ( 6HSTAT **510) 

GO TO 521 

C — — i K0P = 5 ) 

520 K0P=5 

C CALL DEBUG 2 l 6HSTAT -*520) 

521 IF C LOP »NE*0 ) GO TO 997 

522 LOP= 1 
LFRT * 1 

IF ( LE V£L<» EQ®0 ) IEVEL = 3 

524 IF { KS I ACK { LEVEL ) - 1 ) 525* 526* 997 

525 STACK! LEVEU=0» DO 

C CALL DEBUG 2 ! 6HSTATMT , 525) 

526 DO 523 1*1*2 

C CALL DEBUG 2 ( 6HSTATMT * 526 ) 

VALUE =ST ACK { LEVEL ) 

KST AC K I LEVEL ) *0 
LEVEL =LEVEL-1 


410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 
42? 
428 
42 9 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 
445 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 
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nonc^on ooooo oooon o oo 


528 CALL IARITI 471 

IF C KE RTYP® ME® 0 ) GO TO 999 472 

527 KST AC< I LEVEL)=KOP 473 

LEVEL= LEVELS 2 474 

GO TO 19 475 

CABCDEFGH I J < IMNOPQRSTUVWXY ZABCOEFGHI JKLMNQPQRSTUVVSXYZABCDEFGH1 JKLMNOPQRS 475 

530 L0P=0 477 

C CALL DEBUG 2!6HSTAT A, 530) 478 

IF ( i LEVEL* ME«Ot« AMD * CKSTACKl LEVEL ) «EQ* 1 ) ) GO TO 997 479 

535 TEST = ®TRUE® 480 

CALL I NAME I ( $999? D» I T ) 481 

IF CIFMTYPI 531 » 621© 640 482 

531 LFRT * 1 483 

IF ( LEVEL*NE* 0 ) GO TO 540 484 

532 STACK! 3)=VALUE 485 

C CALL DEBUG 2 1 6HSTATMT , 532) 486 

KST AC< I 3 ) - 1 487 

CALL STACKP 488 

* PRINT STACK 489 

GO TO 20 49D 

540 CONTI MUE 491 

CALL DEBUG 2 C 6HSTATMT * 540) 492 

CALL IARITI 493 

IF { KERTYP ) 999*20*999 494 

495 

PROCESS SUBROUTINES AND FUNCTIONS 496 

497 

COMMA SEPARATING FUNCTION ARGUMENTS 498 

600 IF I KS TACK ! LEVEL-3 1 ®LT ®6 ) GO TO 997 499 

CALL DEBUG 2C6HSTAT F*600) 500 

601 IF C KS T ACK C LEVELI-l ) 602. 603* 997 501 

602 STACK! LEVEU=0® 502 

603 DO 613 1=1*2 503 

VALUE = STACK! LEVEL I 504 

KST ACK ! LEVEL ) = 0 505 

LEVEL =LEVEL-1 506 

610 CALL IARITI 507 

IF { KERTYP*NE® 0) GO TO 999 508 

611 KSTACU LEVEL ) =KSTACK { LEVEL-iJ+1 509 

LEVEL=LEVEL^3 510 

CALL STACKP 511 

8 PRINT STACK 512 

* GO TO 19 513 

$CALl 514 

630 DO 631 I = 1*4 515 

SKIP % ALL ® IN SCALL 516 

DTH OPERATORS 517 

CALL ICHAR2($9170*12) 518 

631 C0NT1NJE 519 

DOLLAR = * FALSE® 520 

TEST = a TRUE * 521 

CALL I NAME I I $999*D* IT) 522 

IF i IFNTYP * NE» 1) GO TO 640 523 

KVALUE = -KVALUE 524 

9 INDICATE THAT NO RESULT IS TO BE STORED FOR SJB 525 

FUNCTION NAME 526 

21 CONTINUE 527 

8 FUNCTIONS 528 

CALL DEBUG2 i 6HST FNC f 621) 529 

CALL DE8UG2 i 6HIFNTYP * IFMTYP ) 530 
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c 

CALL DEBUG2 ( 6HK VALUE » KVALUE ) 



531 


IFMTYP = -1 




532 


IF (LEVEL. EQ.O) LEVEL = 3 




533 


I F ( NOT ARG . GT. LEVEL ) NOTARG = LEVEL 



534 


LFRT = 1 




535 


ST ACM LEVEL ) =KVALUE 




535 


KST AC< ( LEVEL ) =6 




537 


LEVEL = LEVEL + 3 




538 

c 

CALL STACKP 




539 

c 

3 

PRINT 

STACK 


540 

c 

f OTH 




541 


CALL XCHAR2( $622,30) 




542 


GO TO 19 




543 

c 


9 IF THERE 

ARE ARGUMENTS 


544 

622 

SMCHR = * TRUE* 




545 


IF (KVALUE ® LT* 0) LEVEL 

= LEVEL -3 



546 


GO TO 405 




547 

640 

IF (IFMTYP - 2) ’ 9770,201 

, 700 



548 

C 

LOCK THE SUBROUTINE 

THAT STORES LOCX THE SUBSCRIPT OF D 

ARR 

549 

700 

IF (IFMTYP « ME® 3) GO TO 

9770 



550 


IFNTYP = -1 




551 


I F (LEVEL* NE ® 0 } GO T3 9770 




552 


LFRT = 0 




553 


CALL ICHAR2 ($9170,30) 




554 

C 


9 ERROR IF 

NO ( AFTER LOCX 


555 


ASSIGN 704 TO NEXT 




556 

C 

A-Z OTH 




557 

702 

CALL I CHAR2( $9170,9) 




558 


CALL I NAMEIt $999,D, IT) 




559 


IF ( IFMTYP .GT. ~I> GO TO 

9770 



560 


GO TO NEXT, (704,708) 




561 

704 

LOOKX = LOOK 




562 

C 

OTH f 




563 


CALL I CHAR 2 ( $706 * 29) 




564 

C 


9 ERROR IF 

NO COMMA 


565 


GO TD 9170 




566 

706 

ASSIGN 708 TO NEXT 




567 


GO TO 702 




568 

708 

KVALUE = LOCX - LOOKX + 1 




569 


CALL I CNVT I ( 2 $ KCNVRT ) 




570 

C 


8 CONVERT 

FROM INT TO TYPE OF 2ND 

ARG 

571 


IF(LOCK) GO TO 710 




572 


D (LOOK ) * RVALUE ( 1 ) 




573 

710 

CALL ICHAR2($9170*31 ) 




574 

C 

9 ERROR IF NO ) 



575 


TEST = .TRUE . 




576 

C 

OTH » 




57? 


CALL I CHAR2 ($19,29) 




578 

C 


• SKIP THE 

COMMA THAT MUST FOLLOW 


579 

9170 

KERTYP = 170 




580 


GO TO 999 




501 

9370 

KERTYP = 370 




582 


GO TO 999 




583 

997 

CONTINUE 




584 

9770 

KERTYP = 770 




585 


GO TO 999 




586 

999 

CALL IERORI 




587 


LFRT = 0 




588 


LOP = 0 




589 


NAME (1)=0 




590 


GO TO 19 




591 

C 


* NOW 

GO TO SWITCH HOUSE ». S 

ODD 

592 


END 




593 
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$ I B F T.C 

C 


BLOCK DECK 
BLOCK DATA 


ICOMMI BLOCK 

DATA PROGRAM 




2 

DIMENSION I FT { 31), IPTABC 

2D* I TAB! 

65) 



3 

DIMENSION ANAME ( 15 ) , 1MAGEC80) , IMAGE1C 81 I « IPARAMC 9) 


4 

, KSTACK ( 27 ) , NAMEC 15) , RVALUE 

S 2 ) , STACK 

(27) 


5 

a 

COMMON 






7 

/ICOMMI/ VALUE 

,ICOMP 

9 IFMTYP 

9 I MAGE 1 

y I RADI X 

, I SUB 

8 

« KCH 

, KCNVRT 

* KCOUNT 

f KDIF 

, KFL01 

9 KFLD2 

9 

• LCOMP 

, LCNVRT 

• LEVEL 

t LFRT 

, LOOK 


10 

y MCNVRT 

fMDIF 

,MODALL 

y MSTOR 



11 

, NAME 

, NERROR 

« NOMEW 

yMOTARG 



12 

« SMCHR 

,TEST 

, ERMARK 




13 

/ICNST 1/ BLANK 

, BLANKS 

, DOLLAR 

y EOS 



14 

v I COMMA 

t IDOLAR 

1 1 FT 

,IPTAB 

, I TAB 


15 

9 KAM10 

, K BPC 

yKBPW 

yKCPCD 

? KERTYP 


15 

, KZERO 

, MOPRNT 

, TAB1 




17 

/ IP ARAM/ ABORT 

fKXUNIT 

fKOUNIT 

tLIMALF 

tLOCK 

,LOCX 

18 

, NOLI ST 

t NSTDI R 

» TRACE 




19 

/ 1ST A< I / STACK 

tISTDIM 

» KSTACK 

y LEVL I M 



20 







21 

INTEGER BLANK 

, BLANKS 

, EOS 

, I DOLAR 

, TAB1 

y TRACE 

22 

DOUBLE PRECISION 

STACK, VALUE 




23 


» NSTDIR f SMCHR ? TEST 
DATA NERROR, TRACE/O, 0/ 

DATA IT AB/ 65* 20572347824/ 

DATA ITABC 49) /-U890146992/ 


DATA 


M I M O l_ M M rx , DL«IN»\Of tujf , AUU(LMI%J r\Hn. 

KZER3*N0PRNT»TAB1«IMAGE1{2)*IMAGE1(3)/ 
48,-17997958192, 10 , 

7 j 63 36? 


43 , 
83, 

11555507248/ 


59, 

43 , 

> 0 f 11555507248, 64, 11555507248, 

DATA ABORT , IMAGE 1C 15 , IMAGE1 C 81 3 * IRAQI X, I STD IM, 

. KCOUNT , KD IF, KSTACK, LEVL IH^NSTDIR, STACK/ 

& © FALSE* t 1HE , 1H f 10, 27, 0,1, 27*0,24, © TRUE* , 27*0, DO/ 

DATA I FT/ 

» 0 , 31,-17716740112, 21051935792,-17716740128 9 

* 23481 748528, -17716740144, -3864988720,-17716740160,-19756682288 
,-1771 6 740176, -2000940 1392, -17716740192, 19113857200,-17716740208 
b -8210767088,-17716740224, -8428915760,-17716740240, 
,-17715740256, 18568907824,-17716740272, ------ 

* -9954 237936 f -9126805552, -3863968816, 

. 0 / 


21907455024, 

-9126805696, 


17716740208, 
-84331 10064 * 
-9126805536, 
-3863883248, 


24 

25 

26 

27 

28 


• 9 

I TAB ( 

44)/ 

11923699376/, 

ITABC 

61)/ 

29355228304/ 

29 

© , 

I TAB ( 

29)/ 

29053238816/, 

ITABC 

12 )/ 

-3484760752/ 

30 

• , 

ITAB ( 

28)/ 

-11821997744/, 

ITABC 

17)/- 

11903778480/ 

31 

© f 

ITABC 

33)/ 

-1215596 1008/ y 

ITABC 

45)/- 

12192136880/ 

32 

* *• 

I TAB ( 

50)/ 

-12208914096/, 

ITABC 

13)/- 

12041137840/ 

33 

« , 

I TAB ( 

60)/ 

-11957255792/, 

ITABC 

XI)/- 

11890146992/ 

34 

© f 

ITABC 

1 )/ 

29063724720/, 

ITABC 

2 )/ 

29063724720/ 

35 

* y 

ITAB! 

3)/ 

29063724720/, 

ITABC 

4)/ 

29063724720/ 

36 

© , 

ITABC 

5) / 

29063724720/, 

ITABC 

6 )/ 

29063724720/ 

37 

© , 

ITABC 

7)/ 

29063724720/, 

ITABC 

8 )/ 

29063724720/ 

38 

© y 

ITABC 

9)/ 

29063724720/, 

ITABC 

10 )/ 

29063724720/ 

39 

• 9 

ITABC 

18)/ 

20572347824/, 

ITABC 

20 )/ 

18961735088/ 

40 

• , 

ITABC 

21 )/ 

17350532528/, 

ITABC 

22 )/ 

17350565296/ 

41 

• 9 

ITABC 

23)/ 

23256571312/, 

ITABC 

261/ 

20035476912/ 

42 

® 9 

ITABC 

361/ 

22182950560/, 

ITABC 

381/ 

22182960560/ 

43 

© 9 

ITABC 

40)/ 

18424854176/, 

ITABC 

421/ 

19498606000/ 

4^ 

© 9 

ITABC 

51)/ 

22719831472/, 

ITABC 

525 / 

17887731120/ 

45 


46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
55 

57 

58 

59 

60 
61 
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noon 


DATA IPTAB/ 

0 , 

“3653 164950 * 
-535 371040* 
-2 793 30254-7 ® 
0/ 

END 


21 ® 

-536870992® 

-6221022825® 

17716740192® 


-536870928, 

-3863882800s 

17716740128® 

-3863968816® 


18565733616* 
-536871024s 
-2 580698739 2 
17716740240, 


-536870976, 

-6015524019, 

17716740144, 

-21093496176, 


: XARITI DECK 

ARITHMETIC OPERATIONS FOR INPU 
SUBROJTINE IARITI 
CALLED FROM INPUT 
DIMENSION I FT ( 311® IPTA8I 211 
DIMENSION ANAME ( 15 ) § l MAGE f 80) 
* t KSTACK ( 27 ) ® NAME! 15) 

COMMON 


INPUT R® 


I T ABC 65) 

®IMAGE1C81),IPARAM(9) 
9 RVALUE ( 2 ) ® STACK i 27 ) 


VALUE 

® I COMP 

* I FNTYP 

® IMAGE1 

1 1 RAD I X 

1 1 SUB 

9 

KCH 

® KCNVRT 

® KCOUNT 

9 KOI F 

t KFLD1 

.KFL02 

10 

LCOMP 

® LCNVRT 

*LE VEL 

® LFRT 

® LOOK 


11 

MCNVRT 

® MD I F 

® MODALL 

« MSTOR 



12 

NAME 

® NERROR 

9 NOMEW 

t NOT ARG 



13 

SMCHR 

® TEST 

® ERMARK 




14 

BLANK 

® BLANKS 

t DOLLAR 

t EOS 



15 

I COMMA 

« I DOLAR 

® I FT 

tIPTAB 

® I TAB 


16 

KAM10 

® KBPC 

® KBPW 

t KCPCD 

® KERTYP 


17 

KZERO 

§ NOPRNT 

® TAB1 




18 

ABORT 

t K I UNI T 

® KOUNI T 

® L I HALF 

t LOCK 

t LOCX 

19 

NOLIST 

® NSTDI R 

® TRACE 




20 

STACK 

® I STDIM 

® KSTACK 

sLEVLIM 



21 
0 P 

BLANK 

® BLANKS 

®EQS 

® f DOLAR 

9 T AB1 

.TRACE 

c c. 
23 


DOUBLE PRECISION STACK® VALUE 

LOGICAL ABORT ® DOLLAR ® ERM ARK® LI HALF ® LOCK® NOL 1ST ® NOMEW® MOD ALL « 

, NSTDI R® SMCHRt TEST 

EQUIVALENCE f STACK® I STACK I ? ! VALUE ® K VALUE® RVALUE 1 ® C NAME* ANAME ) 
EQUIVALENCE C I C OMNI ® I SUB ) ® 1 1 MAGE® I MAGE1 1 ® ! IP ARAM® ABORT ) 

CALL DEBUGCC 6HIARITI ) 

CALL STACKP 

• PRINT STACK 


IF f KERTYP«NE.O) GO TO 100 

IF { C LEVEL®LE*OKOR*( LE VEL® GT*LE VLI M ) ) GO TO 120 
BRANCH ON KSTACK ( LEVEL )= -® 0® 1® 2® 3® 4® 5® 6® 
K=MAX3U* KSTACKC LEVEL 1+2) 



I F ! K* 3E • 8 ) GO 

TO 60 


37 


- 0 

12 3 4 

5 ^KSTACK (LEVEL) 

38 

3 

GO TO f 120*90® 

120® 20® 30® 40® 

50 ) 9 K 

39 

20 

VALUE = STACK! 

LEVEL! LVALUE 


40 


GO TO 90 



41 

30 

VALUE = ST ACK ( 

LEVEL ) /VALUE 


42 


GO TO 90 



43 

40 

VALUE= STACK! 

LEVEL) LVALUE 


44 


GO TO 90 



45 

50 

VALUE 2 ST ACK C 

LEVEL) -VALUE 


46 


GO TO 90 



4 7 

60 

LEVELl 2 LEVEL- 

•K*9 


48 


DO 61 I =LEVEL 1 

® LEVEL 


49 
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no non o no 


61 KST AC< i I)=0 5 a 

LEVEL = LEVEtl-l 51 

CALL DEBUG 2 f 5HL EVEL * LEVEL) 52 

CALL DEBUG 2 1 5HVALUE * VALUE ) 53 

IF (LOCK 5 GO TO 62 54 

CALL I XQT I C VALUE* STACK C LEVEL ) I 55 

62 CONTINUE 56 

CALL DEBUG 2 ( 5HVALUE * VALUE ) 5? 

IF (LEVEL «LE® NOTARG) NOTARG = ISTDIM 58 

IF (ST ACKILEV EL )»LTeO®DO) GO TO 110 59 

GO TO 90 60 

90 STACK! LEVEL 5 =VALUE 61 

KSTACKf LEVEL 1 “1 62 

100 CONTINUE 63 

CALL STACKP 64 

8 PRINT STACK 65 

CALL OEBUGR 66 

RETURN 67 

110 LFRT=0 68 

9 SPECIAL TREATMENT FOR SUBROUTINES 69 

CALL DEBUG2! 6HSTATMT * 110) 70 

KST AC Kl LEVEL )=0 71 

LEVEL=0 72 

C OTH f 73 

CALL ICHAR2I $100*29) 74 

KERTYP * 150 75 

GO TO 100 76 

120 K6RT YP-750 77 

GO TO 100 78 

END 79 


SIBFTC ICHAR4 DECK 


SUBROUTINE ICHAR4C »***LIST1 

* L I ST2 ) 




i 

DIMENSION IFTI 31), IPTABI 21), ITAB ( 

65) 



2 

DIMENSION ANAMEI 15) , IMAGE(80) , IMAGE1 ( 81 ) « I PARAM ( 9} 


3 

sKSTACKC 

27) t NAME! 15 ) *RVALUE(2) $ STACK! 27) 


4 

e 

COMMON 






0 

6 

/ ICQMM I / VALUE 

9 1 COMP 

t IFNTYP 

9 I MAGE1 

, I RADI X 

* I SUB 

7 

tKCH 

sKCNVRT 

f KCOUNT 

* KOI F 

, KFLD1 

f KFLD2 

8 

tLCOMP 

*LCNVRT 

*LEVEL 

* LFRT 

»LOOK 


9 

* MCNVRT 

* MD IF 

t MODALL 

* MSTOR 



10 

t NAME 

? NERROR 

jNONEH 

9 NOT ARG 



11 

9 SMCHR 

t TEST 

*ERMARK 




12 

/ICNSn/ BLANK 

e BLANKS 

* DOLLAR 

» EDS 



13 

« ICOMMA 

* I DOLAR 

*IFT 

t IPTAB 

, ITAB 


14 

$ KAM10 

* KBPC 

t KBPW 

$ KCPCD 

, KERTYP 


15 

tKZERO 

*NOPRNT 

t TAB1 




16 

/ IPARAM/ ABORT 

* K I UNI T 

f KOUNI T 

t L I HALF 

.LOCK 

* LOCK 

17 

t NOLIST 

*NSTDIR 

9 TRACE 




18 

/I STA< I / STACK 

% I STDI M 

* KSTACK 

t LEVLIM 



19 







20 

INTEGER BLANK 

® BLANKS 

tEOS 

* I DOLAR 

, T AB1 

® TRACE 

21 

*COMPR 






22 

DOUBLE PRECISION 

STACK, VALUE, IDEBUA, 

DEBGNA 12) 



23 

DATA DEBGNA/6HICHAR , 5HITCHR/ 




24 

LOGICAL ABORT » DOLLAR, ERM ARK, 

L I MALF, LOCK, NOLI ST, NONEW, MODALL, 

25 

NSTDI R * SMCHR* TEST 






25 
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o o o o n 


EQUIVALENCE C STACK* I STACKS 9 { VALUE * LVALUE * RVALUE ) 9 i NAME » AN AME ) 2 7 

EQUIVALENCE I ICOMNX, ISUB1® C IMAGE® IMAGEil® i IP ARAM® ABORTS 2B 

LOGICAL GOT CO 29 

C 9 TRUE IF MEN CARD NAS READ 30 

LOGICAL SMCHR 31 

C • RE-PR3CESS THE SANE CHARACTER AS LAS 32 

KFLD2 S L 1ST2 33 

IB I TS = 2 34 

ASSIGN 36 TO COHPR 35 

IDEBUN = 4 35 

GO TO 10 37 

ENTR7 ICHARII*f#*LISTl) 38 

IBITS - 2 39 

IDEBUN * 3 40 

GO ID 4 41 

ENTRY ICHAR2C LI ST1 1 42 

IB I IS = 1 43 

IDEBUN = 2 44 

4 KFLD2 - -1 45 

ASSIGN 37 TO COHPR 46 

IF { MODALL )G0 TO 40 47 

10 ASSIGN 20 TO IGETR 48 

12 KFLD1 =LI ST1 49 

1DEBUA = DEBGNAI 1 I 50 

ASSIGN UO TO NEXT 51 

G0TC3-® FALSE® 52 

IF! SMCHR 1 GO TO 35 53 

C 8 SKIP SETTING NEW CHARACTER 54 

GO T3 200 55 

C • GET CHARACTER RETURN TO 20 56 

20 IF I KCH®EQ®BLANK IGQ TO 200 57 

C 9 BYPASS BLANKS 58 

IF f <CH® NE®EGS 1 GO TO 30 59 

C * EOS- END OF STATEMENT CHARACTER 60 

ASSIGN 200 TO INEWR 61 

C * PROVIDE TO SET FIRST CHARACTER FROM NEXF C 62 

GO T3 300 63 

30 IF ! TEST® AND®G0TCD1G0 TO 100 64 

35 ITEM? = ITABfXCH*!! 65 

ICOM?=f FLDI LISTlt IBITStlTEMP) 65 

GO TO COHPR® 136*371 6 7 

36 LCOHP=XFLDC LI ST2t 2$ ITEMPl^l 68 

3? CONTINUE 69 

IF C TRACE « L?«4! GO TO 38 70 

C CALL 0EBUG2! IDEBUA® I DE8UNJ 7i 

38 SMC m = ©FALSE© 72 

IF I IC3MP** 1 ) 381*382*383 73 

381 RETURN 74 

382 RETURMI 75 

383 RETURN2 76 

40 ASSIGN 35 TO IGETR 77 

GO 13 12 78 

ITCHR ------- 79 

SPECIAL ROUTINE TO INSERT COMMA AT END OF CARD IF 80 

THE NEXT CARD BEGINS WITH $ OR A LEFT MEMBER 81 

TO THIS ROUTINE® A LEFT MEMBER BEGINS WITH A~Z 82 

FOLLOWED BY ANY OF 0-9UA-Z FOLLOWED BY * 83 

100 IDEBUA * DEBGNAI 21 84 

HEMP = ITABIKCH*!! 85 

I COMP =IFLDC0 ? 3* HEMP 1 86 

GO TO NEXT * f i 10 ? 1201 87 
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noon o ooooo o n n 


C 8 110 FOR 1ST CHR ON NEW CARO, 120 FDR FOLL 88 

110 NONE«f = ®TRUE® 89 

ASSIST 120 TO NEXT 90 

C $ A-Z 0-9 { ) = OTH 91 

GO T3 ( 130,200,140,140,140) $ I COMP 92 

93 

$ A-Z 0-91) = OTH 94 

120 GO T3! 140,200,200,130,140), ICOMP 95 

130 KCOUN T =0 96 

KCH=I COMMA 97 

NONEW = * FALSE* 98 

GOTCD = * FALSE* 99 

GO T3 35 100 

8 COMMA IS CHARACTER RETURNED 101 

140 KCQUNT=0 102 

NONEd=*FALSE* 103 

GOTCD = « FALSE * 104 

GO TO 200 105 

1 FIRST N3N-BLANK CHARACTER ON CARD IS RETURNED 106 

ROUTINE TO GET NEXT CHARACTER 108 

109 

200 I F ( KC 3UNT ®LT»KCPCD)GO TO 210 110 

ASSIGN 210 TO INEWR 111 

GO T3 300 112 

210 KC0UNT=KC0UNT*1 113 

9 CARD COLUMN OF NEW CHARACTER 114 

KCH=! FLD ( 0, KBPC , IMAGE ( KCOUNT ) ) 115 

GO TO IGETR, (20,35) 116 

9 35 IS USED ONLY FOR MODALL *TRU 117 

ROUTINE TO PRINT OLD CARD AND READ NEXT 119 

IF NONEW IS TRUE, STORE TAB1 IN KCH AND RETURN 120 

300 I F ( N3NEW ) GO TO 310 121 

KCH=IMAGE(KC0UNT*1) 122 

C * GET CARRIAGE CONTROL (IMAGE(81) IS A BLANK) 123 

IF! (<CH*EO*NOPRNT)*OR*NOLIST) GO TO 305 124 

WRITE! KOUNI T ? 398 ) KCH, I MAGE 125 

398 FORMAT! 1A1,5X,80A1) 126 

305 READIKIUNIT, 399 ) IMAGE 127 

399 FORMAT { 80A1 ) 128 

G0TC3=«TRUE* 129 

KCQUMT-0 130 

* GO TO INEWR, (200,210) 131 

310 KCH=T AB1 132 

GO TO 30 133 

C 9 TAB1 IS RETURNED, INDICATES END OF C 134 

END 135 


$1 BFT C icnvti DECK 

SUBROJ TINE ICNVTI ( IFROM, ITOi 1 

DIMENSION I FT ( 31), IPTAB! 21) , ITAB! 65) 2 

DIMENSION ANAME ( 15 ) ,IMAGE(80) « I M AGE 1 ( 81 ) » I PARAM ( 9 ) 3 

* , KSTACK C 27) , NAME! 15) ,RVALUE(2) ,STACK!27) 4 

C 5 

COMMON 6 

* / 1 COMN I / VALUE , l COMP , IFMTYP , I MAGE 1 * IRADIX , ISUB 7 

* , KCH , KCNVRT , KCOUNT , KDI F , KFLD1 ® KFLD2 8 
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, LCOMP 

, LCNVRT 

.LEVEL 

t LFRT 

, LOOK 


9 

, MCNVRT 

» MD I F 

9 MODALL 

t HST3R 



10 

, NAME 

, NERROK 

9 NQNEW 

y NDTARG 



11 

, SMCHR 

.TEST 

, ERMARK 




12 

/ICNSTI/ BLANK 

, BLANKS 

, DOLLAR 

, EOS 



13 

t ICOMMA 

, IDOLAR 

t I FT 

.IPTAB 

, I TAB 


14 

, K AM 10 

, KBPC 

, KB PW 

, KCPCD 

t KERTYP 


15 

, KZERO 

, NDPRNT 

, TAB1 




16 

/IPARAM/ ABORT 

9 K I UNI T 

f KOUN I T 

, L I HALF 

, LOCK 

, LOCX 

17 

, NOL 1ST 

, NSTOI R 

.TRACE 




18 

/ 1 ST A< I / STACK 

, I STD I M 

? KSTACK 

« LE VLI M 



19 







20 

INTEGER BLANK 

.BLANKS 

,EOS 

.IDOLAR 

»TABl 

* TRACE 

21 


DOUBLE PRECISION STACK, VALUE 22 


LOGICAL ABORT, DOLLAR, ERM ARK, LIMALF.LOCK, NOLI ST.NONEW, MOD ALL , 23 

®NSTDIR,SMCHR,TEST 24 

EQUIVALENCE ( ST ACK, I STACK ) f ( VALUE * K VALUE , RVALUE ) , i NAME , ANAME 5 2 5 

EQUIVALENCE C ICOMNI , I SUB 5 , II MAGE * I MAGE1 5 , < I PAR AM , ABORT 5 2 6 

DIMENSION NTYPEI45 27 

DOUBLE PRECISION NTYPE 28 

DATA NTYPE / 6HREAL ,6HINT ,6HDP .6HN0C0NV/ 29 

IFU IFROM.LE.OI.OR.f IT0.LE*0) 5 GO TO IOO 30 

IF { I F ROM - 45 1,99,100 31 

1 IF I IT 3 - 4) 2,99,100 32 

2 IT0M2 = ITO -2 33 

IF ( I F ROM-2 5 3,4,5 34 

3 IF (IT0M2) 99,10,20 35 

4 IF C IT0M2) 30,99,40 36 

5 IF (IT0M2) 50,60,99 37 

10 KVALUE = RVALUE ( 1 5 38 

GO TO 99 39 

20 VALUE = RVALUE ( 1 ) 40 

GO TO 99 41 

30 RVALUE (15 = KVALUE 42 

GO TO 99 43 

40 VALUE = KVALUE 44 

GO TO 99 45 

50 RVALUE ( 1 5 = VALUE 46 

GO TO 99 47 

60 KVALUE * VALUE 4B 

99 CONTINUE 49 

C CALL DEBUG3 ( 6HI CNVT I , 0. DO, 3 5 50 

C CALL 0EBUG3( NTYPE 1 1 FROM 5 ,NTYPE ( I TO ) ,3) 51 

RETURN 52 

100 WRITEt <OUN IT , 101 ) IFROM, ITO 53 

101 FORMAT ( 35H ARGUMENTS OF ICNVTi BAD. I FROM = ,113, 8H* ITO = ,113, 54 

. 41 H ( 1 TO 4 ALLOWABLE ) » CHECK IPTAB IN COMNJ) 55 

GO TO 99 56 

END 57 


SIBFTC IERORI DECK 

SUBROUTINE IERORI 1 

DIMENSION I FT C 315, IPTABC 215, I TAB ( 65 5 2 

DIMENSION ANAMEU5) v IMAGEI80) , IMAGE U 81 5 , I PARAM ( 95 3 

* ,KSTACK(275 .NAMES 155 , RVALUE ! 2 5 ,STACKS27) 4 

C 5 
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COMMON 


C 

C 

c 


VALUE 

* I COMP 

j I FNTYP 

, I MAGE1 

t IRADIX 

, I SUB 

7 

KCH 

* < CNVRT 

* KCOUNT 

* KO I F 

* KFLD1 

* KFLD2 

8 

LCOMP 

* LCNVRT 

t LEVEL 

* LFRT 

*LOQK 


9 

MCNVRT 

* MD IF 

9 MODALL 

* MSTOR 



10 

NAME 

, NERROR 

t NONE W 

* NOTARG 



11 

SMCHR 

* TEST 

9 ERMARK 




12 

BLANK 

, BLANKS 

, DOLLAR 

, EDS 



13 

ICOMMA 

? I DOLAR 

1 1 FT 

» X PTAB 

, I TAB 


14 

KAM10 

t KBPC 

*KBPW 

9 KCPCD 

v KERTYP 


15 

KZERO 

9 NOPRNT 

* TAB1 




16 

ABORT 

, K I UNIT 

9 KOUNI T 

* L I HALF 

, LOC K 

, LOCX 

17 

NOLIST 

tNSTDIR 

*TRACE 




18 

STACK 

? I STDI M 

t KSTACK 

* LEVL I M 



19 

BLANK 

^BLANKS 

* EOS 

* I DOLAR 

, TAB1 

, TRACE 

c. u 
21 


INTEGER 

DOUBLE PRECISION STACK* VALUE 

LOGICAL ABORT f DOLLAR * ERMARK ,LIMALF * LOCK* NOL 1ST* NONE W* MODALL * 

9 nstdir*smchr*test 

EQUIVALENCE C STACK* I STACK) ? ( VALUE , K VALUE* RVALUE ) * ( NAME * ANA ME ) 
EQUIVALENCE UCOMNIt I SUB)* ( IMAGE, I MAGE1 ) * ( I PARAM, ABORT ) 

INTEGER H ! 4* 7 ) 

EQUIVALENCE CH{l*l),Hl)*(Htl f 2)*H2)t<H{l,3)*H3),(H(l,4)»H4) 

DATA K A/1H*/ 

DATA <B/IH / 

DATA < C / 1 H * / 

DATA KD/1H® / 

INTEGER MSGTYP(2,2), Hl(4), H2C4J* H3C4), H4C4), 

DATA MSGTYP(l*i)/24H#DIAGM0STIC**ERR0R»* 

DATA -nil) / 24HI NAPPROPR I ATE CHARACTER 
DATA H2C1) / 24HNAME TOO LONG 
DATA +3(1) /24HTABLE FULL OR DESTROYED 
DATA *44(1) / 24H$D INCOMPLETE OR MISSING 
DATA H5U) / 24HNAME NOT IN TABLE 
DATA H6(l) /24HFUNCTN OR SUB NOT ABOARD 
DATA +7(1) /24HF0RMUL A ILL-FORMED 
CALL DEBUGCC 6HIER0RI ) 

NONEW = .FALSE* 

NERROR = NERROR * 1 

* COUNT 


H5 ( 4 ) * H6 ( 4) , H7 ( 4 ) 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


ERMAR< = .TRUE » 


IOP 


0 


DIAGONISTICS 


9 WARN PROGRAMER OF POSSIBLE ERRO 

* COUNT OPERATORS *-*=(* 


MODE 


KC1=KC 


11 

90 


MODE = 1 

I F ( NOT ARG.LT.LEVEL ) 

t/r i = u a 

I F ( KC3 JNT * EQ® 0 ) 

L = KCOUNT + 1 
MODALL = .FALSE* 

TEST = .TRUE. 

M =1 ABS(KERTYP) 

J = M/100 
K = 2 

IF(DOlLAR) MODE = 2 
IF(KERTYP.GT.O) LOCK = 

IF(KERTYP.LT.O) K=1 

WRITE! <OUNI T * 90 ) ( MSGT YP ( I * K ) , I «1 * 2 ) * M* ( H (I , J ) , I = 1 , 4 ) , KC1 * 
» IMAGE, (KBtl-ltL)fKA® (KB* I=L * 81 )* NERROR* LOCK 
FORMAT (1H ,2A6,2H {* 13, 2H) * 4A6* 2X * 81 A1/45X* 83A1 * 

► /14X* 11HERR0R COUNT, 14, 13H LOCK = *,L1,1H*) 

I F { NE RROR. GT.64)ST0P 


.TRUE® 


22 

23 

24 

25 

26 

27 

28 

29 

30 

3 1 

32 

33 

34 

35 

36 

37 
3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
63 
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I F ( KER T YP« LT .0 ) GO TO 99 69 

SMCHR = .TRUE. 70 

30 CALL ICHAR4($31,$65,7,10) 71 

C 0-9. + $ ) 72 

GO TO (30,65,39,80>»LC0MP 73 

C , 9 A-Z « 74 

31 GO TO (60,65,30,60), LCOMP 75 

39 SMCHR = .TRUE. 76 

40 L = KCOUNT +1 77 

KC1 = KB 78 

IF ( KCOUNT. E«.0)KC1=KC 79 

WRI TE( KOUNIT ,91 )KC1, IMAGE, (KB, I=1»L),<D»(KB»I=L»81) 80 

91 F0RMAT(14X, 43HSK I P AHEAD AND GUESS AT NEXT GOOD STATEMENT, 81 

. / 1 4X, 32HBEGIN PROCESSING AT SYMBOL ,81A1/45X, 83A1 82 

. /14X48HL00K FOR OIAGONISTICS BUT DON' *T STORE ANYTHING.//) 83 

IFNTYP = -1 84 

DO 1 1=1, ISTDIM 85 

1 KSTACK(I) =0 86 

LEVEL =0 87 

NOT AR 3 = ISTDIM 88 

99 CONTINUE 89 

KERTYP =0 90 

C CALL DEBUGR 91 

RETURN 92 

C , = »=»=*=»= , = , = » = , *, = » - , = , = » = , = 93 

60 I F ( MODE . EQ. 1 ) GO TO 40 94 

C ALL OPERATORS 95 

65 IOP = IOP + 1 96 

I F ( I0P.LE.16) GO TO 30 97 

IF YOU FIND 16 OPERATORS BEFORE ) GIVE UP 98 

99 

mnnm))))))))))) ioo 

80 MODE = 1 101 

DOLLAR = .FALSE. 102 

GO TO 30 103 

104 

MODE ACTION 105 

106 

1 SKIP TO NEXT $ OR = OR , (UNCONDITIONAL) 107 

2 SKIP TO NEXT $ (UNCONDITIONAL) OR TO = OR , AFTER ) 108 

END 109 


IBFTC I LOOK I DECK 

SUBROUTINE ILOOKK*, IT) 
CALLED FROM 


C 


ITABLI 

INAMEI 

DIMENSION I T ( 1 ) 

DIMENSION IFT ( 31), IPTABl 21) 
DIMENSION ANAME( 15) , IMAGE180) 
, KSTACK ( 27 ) ,NAME(15) 


ITAB( 65) 

»IMAGE1(81) , IPARAM19) 
, RVALUE ( 2 ) , STACK ( 27 ) 


1 

2 

3 

4 

5 

6 

7 

8 
9 


COMMON 10 
,/ICOMNI/ VALUE , I COMP , IFNTYP , IMASE1 , IRADIX , ISUB 11 
, , KCH , KCNVRT ,KCOUNT » KDI F , KFLD l , KFLD2 12 
. , LCOMP , LCNVRT , LEVEL , LFRT .LOOK 13 
. , MCNVRT »MDIF ,MODALL ,MSTOR 14 
. * NAME .NERROR .NONEW , NOT ARG 15 
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c 


© 


© 


« SMCHR 

? TE ST 

iE RMARK 




16 

/ I CNSF I / BLANK 

* BLANKS 

g DOLLAR 

? EOS 



17 

t I COMM A 

*IDOLAR 

g I FT 

I PTAB 

*ITAB 


18 

* KAMI 0 

*KBPC 

? KB PH 

■g KCPCD 

tKERTYP 


19 

9 KZERO 

9 NOPRNT 

g TAB1 




20 

/IPARAM/ ABORT 

s K I UN I T 

f KOUNI T 

t LI MALE 

f LOCK 

t LOCX 

21 

* NOL 1ST 

9 NSTDI R 

g TRACE 




22 

/ 1 ST A< 1 / STACK 

g I STD I M 

$ KSTACK 

gLEVLIM 



23 







24 

INTEGER BLANK 

9 BLANKS 

?EOS 

gIDOLAR 

t TAB1 

9 TRACE 

25 


DOUBLE PRECISION STACK, VALUE 25 


LOGICAL ABORT, DOLLAR, ERM ARK, LIMALF, LOCK, NOLI ST, NONEW, MOD ALL, 27 

NSTD I R, SMCHR, TEST 28 

EQUIVALENCE ( STACK, I STACK } , l VALUE , KVALUE , RVALUE ) , ( NAME » ANAME ) 29 

EQUIVALENCE (ICOMNI, I SUB ) , II MAGE, I MAGE1 ) ,{ IP ARAM, ABORT) 30 

L00K=3 31 

8 FIRST USABLE POSITION 32 

I F ( ITt LOOK) .EQ.O) GO TO 7 33 

• RETURN WITH NEXT AVAILABLE ENTR 34 

J S IFLD(3»4* IT(LOOK) i 35 

« MAX POSSIBLE J IS 15 36 

IF (J .NE.MSTOR) GO TO 8 37 

8 8 IF NAME IS WRONG LENGTH, TRY 38 

DO 4 <=1,J 39 

5 CHECK NAME FOR MATCH 40 

LOOKK = LOOK + K 41 

IF (NAME(K).NE.IT (LOOKK J ) GO TO 8 42 

CONTINUE 43 

CALL DEBUG2 ( 6H*LOQKF , LOOK ) 44 

• ENTRY WAS FOUND 45 

RETURN 1 45 

CONTINUE 47 

CALL DEBUG2I 6H*L00KN, LOOK) 48 

8 NO ENTRY WAS FOUND 49 

RETURN 50 

LOOK = LOOK+J+ 1 51 

52 

53 

* TRY NEXT ENTRY 54 

GO TO 1 55 

END 56 


IBFTC INAMEI DECK 

SUBROUTINE INAME I ( * , 0, I T > 
CALLED FROM INPUT 
CALL DEBUGCI 6HINAMEI ) 


SUBROUTINE TO OBTAIN LOCATION, MODE, 

AND CONTENTS OF A NAMED CELL 

4 

cr 

DIMENS 

ION I FT 1 313 

f I PTAB( 

2 1 ) » ITABI 

65) 


5 

6 

DIMENS 

ION ANAMEI 15) , IMAGEl 80) , I MAGE 1 1 81 ) , I PARAM { 9> 

7 

o 

,KSTACK(27) ,NAME{ 15) ,RVALUE(2I ,STACK(27) 

8 

COMMON 






9 

10 

® / I COMN 

1/ VALUE 

9 I COMP 

g I FNTYP 

1 1 MAGE 1 

, I RAD I X , I SUB 

11 

® 

* KCH 

9 KCNVRT 

gKCOUNT 

? KDI F 

, KFLD1 , KFLD2 

12 

© 

» LCDMP 

g LCNVRT 

§ LEVEL 

§ LFRT 

» LOOK 

13 

© 

, MCNVRT 

9 M D IF 

s MODALL 

9 MSTOR 


14 


, NAME 

TERROR 

g NOMEW 

t MQTARG 


15 


, SMCHR 

» T EST 

® ERMARK 



16 
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• / ICNST 1 / BLANK .BLANKS 

.DOLLAR 9 EDS 

17 


* t 1 COMMA f I DOLAR 

? IFT 9 I PTAB . I TAB 

18 


* t KAM10 .KBPC 

fKBPW 9 KCPCD 9 KERTYP 

19 


t KZERO t NOPRNT 

9 tabi 

20 


• / I P ARAM/ ABORT *<IUNIT 

. KOUNI T ® L IMALF .LOCK » LOC K 

21 


* * NOLIST * N STDI R 

.TRACE 

22 


®/ISTA<I/ STACK tXSTDlM 

. KSTACK f LEVLIM 

23 

c 



24 


INTEGER BLANK .BLANKS 

f EOS $ I DOLAR 9 TAB1 s TRACE 

25 


DOUBLE PRECISION STACK, VALUE 

25 


LOGICAL ABORT * DOLLAR? ERMARK 

, L IMALF , LOCK, NOL 1ST , NONE W, MOD ALL , 

27 


« NSTDI R ? SMCHR . TEST 


28 


EQUIVALENCE {STACK. I STACK ) 9 

( VALUE , KVALUE .RVALUE), ( NAME, ANAME ) 

29 


EQUIVALENCE ( I COMNI , I SUB >, ( I MAGE, I MAGE1 > , II PARAM , ABORT ) 

30 


DIMENSION ITU) 


31 

c 


9 TABLE OF NAMES PROVIDED BY USER 

32 


DIMENSION D { 1 1 


33 

c 


8 USERS VARIABLES ARE IN D ARRAY 

34 


I SUB * 1 


35 

c 


9 UNDERSTOOD SUBSCRIPT 

36 


KDIF = 1 


37 


CALL INAMEN 


38 


CALL I LOOKI C $1 . I T I 


39 


CALL I LOOKI l $64» IFT ) 


40 

9540 KERTYP-540 


41 

C 


9 NAME NOT IN TABLE 

42 


GO TO 99 


43 

1 

CONTINUE 


44 

C 

CALL DEBUG2 ( 6 HSTATMT $ 1 ) 


45 


ITL = I T ( LOOK ) 


46 


KCNVRT-I FLD(0j3.ITL) 


47 

C 

CALL DEBUG 2 ( 6 HKCNVRT.KCNVRT) 

48 

C 

R I 0 T S F 


49 


GO TD(12fl2 f 10jl2, 62.61), KCNVRT 

50 

10 

KDIF = 2 


51 

c 

{ OTH 


52 

12 

CALL I CHAR2 ( $90» 30 ) 


53 

C 


9 GO TO 90 FOR NO SUBSCRIPT 

54 

C 

A~Z 0-9 OTH 


55 


CALL ICHARI {$82 *$9140. 12) 


56 


CALL INAMEN 


57 


CALL I LOOKI ( $83. IT) 


58 


GO TO 9540 


59 

82 

SMCHR = * TRUE® 


60 


CALL ISUBI 


61 


GO TO 84 


62 

83 

I TYPE = I FLD( 0 ? 3 .IT HOOK) ) 


63 


L0C = IFLD{7. 25. ITtLOOKH 


64 


RVALUE (1) = D(LOC) 


65 


RVALUE f 2 ) = D(LOC^l) 


66 


CALL ICNVTI ( I TYPE. 2 ) 


67 


ISUB = KVALUE 


68 

C 

) OTH 


69 

84 

CALL I CHAR 2 1 $9140. 3 1 ) 


70 

C 

9 ERROR IF NO ) 

71 


GO TO 91 


72 

90 

SMCHR « ® TRUE® 


73 

91 

LOC=I FLD { 7. 25 . ITL) 


74 

C 

CALL DEBUG 2 C5HL0C 1*L0C) 


75 


LOC = LOC 4- { I SUB-1 ) #KDI F 


76 

50 

RVALUE ( 1 5 = D { LOC ) 


77 


RVALUE 12) = DILOC + U 


78 
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oooooo ** non ooooooooooo o o n o o ooooo 


C CALL DEBUG 3 C 5HIT € L » « ITL,2) 79 

CALL ICNVTI (KCNVRT»3) 80 

52 LOOK - LOC 81 

98 CONTINUE 82 

CALL DEBUG 3 C 5HVALUE * VALUE, 4 ) 83 

CALL DEBUG 2 ( 6HL0QK ,LOOK» 84 

CALL DEBUG 2 ( 5HLOC 2, LOC! 85 

CALL DEBUG 2 ( 6HKCNVRT , KCNVRT ) 86 

CALL DEBUGR 87 

RETURN 88 

51 IFNTYP =0 89 

« FUNCTION 90 

GO TO 63 91 

52 IFNTYP =1 92 

9 SUBROUTINE 93 

63 KVALUE=IFLD(7»25,ITL) 94 

GO TO 98 95 

64 IFNTYP =0 96 

» LIBRARY FUNCTION OR SUBROUTINE 97 

KVALUE=IFLD(7»25,IFT(L00K> ) 9B 

9 PROGRAM NUMBER (USED BY IXQTI ) 99 

MSTOR = 0 100 

KCNVR T*I FLD ( 0,3, IFT( LOOK) ) 101 

9 5 FOR SUBROUTINES, 6 FOR FUNCTIONS 102 

IF(KCNVRT.EQ.5) IFNTYP-KVALUE 103 

9 PROVIDE FOR EXECUTION OF INPUT SUBRO 104 

CALL DEBUG2J6HLIBF » KVALUE ) 105 

MEANING OF IFNTYP 106 

VALUE NAME IS 107 

-1 ( NORMAL ) AN ORDINARY VARIABLE 108 

0 FUNCTION (USER OR FORTRAN MATH) 109 

1 USER SUBROUTINE 110 

2 RADIX ( INPUT FUNCTION) 111 

3 LOCX (INPUT SUBROUTINE) 112 

$CALL LOCXt Y, I ) CAUSES I TO BE SET SO THAT Y( I J REFERS TO THE CUR 113 

LEFT SIDE. 114 

GO TO 98 115 

9140 KERTY? =140 116 

99 CONTINUE 117 

CALL DEBUG21 6HRETURN » 1 ) 118 

CALL DEBUGR 119 

9 REGESTER RETURN 120 

RETURN 1 121 

END 122 


BFTC INAMEN DECK 

SUBROUTINE INAMEN 1 

CALLED FROM 2 

INAMEI 3 

ITABLI 4 

INPUT 5 

CALL DEBUGCt 6HINAMEN ) 6 

7 

DIMENSION I FT ( 31), IPTABJ 21), I TAB ( 65) 8 

DIMENSION AN AMEC 15) ,IMAGE(80S , I MAGE1 ( 81 i , I PARAM ( 9 ) 9 

. ,KSTACK(27! , NAME( 15) ,RVALUE(2) ,STACK(27) 10 

C 11 
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non 


COMMON! 12 


/icon'll/ VALUE 

» ICOMP 

s 1 FNTYP 

9 IMAGE 1 

9 I RADI X 

a sub 

13 

*KCH 

«? KCNVRT 

9 KCQUMT 

yKDlF 

9 KFID1 

9 KFLD2 

14 

sLCONP 

y LCNVRT 

gLEVEL 

yLFRT 

9 LOOK 


15 

9 MCN VRT 

? MDIF 

» MODALL 

t MSTOR 



16 

9 NAME 

TERROR 

®NONEW 

9 NOT ARG 



17 

9 SMCHR 

» TEST 

yERMARK 




18 

/ICNSri/ BLANK 

* BLANKS 

t DOLLAR 

*EOS 



19 

* I COMMA 

9 l DOLAR 

*IFT 

» IPTAB 

« ITAB 


20 

f KAM10 

v K 8 PC 

9 kbpw 

sKCPCD 

9 KERTYP 


21 

* KZERQ 

tNOPRNT 

?TAB1 




22 

/ I P ARAM/ ABORT 

t K IUNI T 

9 KOUN I T 

9 L I HALF 

9 LOCK 

9 LOCK 

23 

sNOLIST 

yNSTDIR 

9 TRACE 




24 

/ 1 ST A< I / STACK 

• ISTDIM 

*KSTACK 

9 LEVLIM 



25 

0 A 

INTEGER BLANK 

^BLANKS 

9 EOS 

9 I DOLAR 

9 T4B1 

9 TRACE 

C 0 

27 


DOUBLE PRECISION STACK* VALUE* DNAME 28 


LOGICAL ABORT, DOLL AR » ERMARK, LI MALF, LOCK, NOLI ST, NONEW, MODALL, 29 

. NSTDIR , SMCHR, TEST 30 

EQUIVALENCE ( STACK, I STACK ) , ( VALUE, <VALUE , RVALUE I , (NAME, ANAME ) 31 

EQUIVALENCE ( I COMNI , I SUB ) , ( I MAGE, I M AGE1 > , (I PAR AM, ABORT > 32 

EQUIVALENCE! NAME, DNAME) 33 

C COLLECTS NAME (UP TO 15 WORDS) TERMINATED BY ANY SPECIAL CHAR 34 

ASSIGN 6 TO NEXT 35 

I F {MODALL ) ASS I GN 2 TO NEXT 35 

MSTOR =0 37 

J = < BPW 38 

NAME! 2) - BLANKS 39 

1 GO TO NEXT, (2,6,7) *0 

C 8 OTH 41 

2 CALL ICHAR2 ( $8 ,23) 42 

TEST = .TRUE* 43 

MODALL = . FALSE, 44 

CALL ICH AR2 ( $99 ,23) 45 

C 9 PAIR OF APOSTROPHYS DOES NOT EN 46 

TEST = .FALSE. 47 

MODALL = .TRUE. 48 

GO TO 8 49 

6 ASSIGN 7 TO NEXT 50 

GO TO 3 51 

C A-Z-0-9 OTH 52 

7 CALL I CHAR2 ( $99, 12) 53 

8 IF! J.LT.KBPW) GO TO 9 54 

IF! MS TOR »EQ. 15) GO TO 10 55 

MSTOR = MSTOR +1 56 

NAME! MSTOR) = BLANKS 57 

J = 0 58 

9 NAME! MSTOR )=IFLD4(KCH,J,KBPC»NAME( MSTOR ) ) 59 

J= J*< BPC 60 

GO TO 1 61 

10 IF(MOOALL) GO TO 99 62 

KERTYP = -260 63 

CALL IERORI 64 

95 CALL I CHAR2 ( $99, 123 65 

C ' SKIP REST OF NAME 66 

GO TO 95 67 

99 CONTINUE 68 

SMCHR = .TRUE. 69 

CALL DEBUG3! 6HNAME , DNAME, 3) 70 

CALL 3EBUG2I 5HMST0R, MSTOR) 71 

CALL DEBUGR 72 

RETURN 73 

END 74 
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non 


$1 8FTC IMMBRI DECK 
C SUBROUTINE TO TRANSLATE 

SUBROUTINE INHBRI 
CALLED FROM INPUT 


A NUMERIC FIELD 


LOGICAL ABORT « DOLLAR » ERM ARK* LIMALF f LOCK? NOLI ST f NONE W* MOD ALL t 
* NSTDR 9 SMCHR y TEST 

EQUIVALENCE t STACK* I STACK I * I VALUE » KVALUE * RVALUE )«( NAME • ANAME ) 
EQUIVALENCE II CONN! * I SUB ) t C I MAGE* I M AGE1 ) * 1 1 PAR AM* ABORT ) 

LOGICAL LVALUE 
EQUIVALENCE IKVALUEt LVALUE ) 

LOGICAL SWITCH 
DIMENSION LDC4I 

DATA LD!X)*LDS23 *LDf 3 $ * LDI 4) /8, 4* 2t 1/ 

DATA ?Dm*FDC2i » FDI 3) »FDC 4) /1®0D8 # 1 • 0D4* 1* OD2 » 10o DO/ 

DNBR=0 

8 THE NUMBER COLLECTED S3 FAR 


ICSC=0 


s THE CHARACTERISTIC SCALE FACTOR 


IMMBRI IS CALLED 

WITH FIRST 

DIGIT IN 

KCH 



4 

CALL DEBUGC(6HINMBRI ) 





5 

DIMENSION IFT ( 31), IPTABI 

21), ITABt 

65) 



6 

DIMENSION ANAMEI 15) , IMAGE180) , I MAGEK 81 ) , I PARAM ( 9 ) 


7 

* t KSTACK C 

27) * NAME! 15 ) *RVALUEf 2) *STACK(27) 


8 

a 

COMMON 






10 

s/lCOMNI/ VALUE 

« ICOMP 

* IFNTYP 

* IMAGE! 

9 1 RAD I X 

9 I SUB 

11 

* * KCH 

t KCNVRT 

dKCOUNT 

® KDi F 

9 KFLD1 

*KFLD2 

12 

* * LCQMP 

* LCNVRT 

tLEVEL 

t LFRT 

fLOOK 


13 

* * MCNVRT 

* MD IF 

*M0DALL 

* MSTOR 



14 

* * NAME 

TERROR 

9 NONEW 

* NOT ARG 



15 

* t SMCHR 

* TEST 

» ERMARK 




16 

© / ICNST 1/ BLANK 

* BLANKS 

9 DOLLAR 

* EOS 



17 

* * ICQMMA 

* I DOLAR 

t IFT 

t I PTAB 

* I TAB 


18 

© * KAM10 

tKBPC 

* KBPW 

* KCPCD 

t KERTYP 


19 

© * KZERO 

* NOPRNT 

9 TAB1 




20 

® / IPARAM/ ABORT 

tKIUNlT 

« KOUNIT 

*L1MALF 

*L0CK 

9 LOCK 

21 

© * NOLIST 

*NSTDI R 

* TRACE 




22 

© /I STA< I / STACK 

t ISTDIM 

tKSTACK 

9 LEVLI M 



23 







24 

INTEGER BLANK 

* BLANKS 

* EDS 

$ IDOLAR 

«TAB1 

® TRACE 

25 

DOUBLE PRECISION 

STACK, VALUE, DNBR, 

H$ FDC 4) 



26 


27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3B 

39 

40 



IPF = I 


41 

C 

9 SIGN 

OF EXPONENT 

42 


IESE * 0 


43 

C 

8 THE EXPONENT 

44 


ASSIGN 1 TO NEXT 


45 


SWITCH * ©FALSE® 


46 


SMCHR * ® TRUE® 


47 


CALL ICHAR2I $70*21) 


48 

C 

9 GO TO 70 FOR 

LOGICAL CONSTANTS 

49 


SMCHR = ©TRUE® 


50 

C 

OTH 0-9 


51 

1 

CALL I CHAR4 { $2® $3* 13*15) 


52 


GO TO 50 


53 

3 

DNBR * DNBR#10® DO-s-FLOAT i KCH-KZERO) 


54 


GO TO NEXT 9 C 1 * 15 ) 


55 

15 

ICSC = ICSC - 1 


56 


GO TO 1 


57 

C 

• DE OTH 


58 

2 

GO T3I2093095059LCOMP 


59 

19 

SMCHR=®TRUE ® 


60 

C 

• ENTER 

HERE FOR INITIAL DECIMAL POINT 

61 

20 

IF ISWITCH) GO TO 9130 


62 
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oooooo vO o o o o nouio o n oo 


C CALL DEBUG2 I 6 HSTAT «*203 
ASSIGN 15 TO NEXT 
SNITCH = *TRU£* 

GO TO 1 
37 IPF=~1 

GO TO 36 
30 CONTINUE 

CALL DEBUG 2C6HSTAT E*30$ 

♦- OTH 0-9 

CALL fCHAR4{$50*$35* 13*153 
* 

GO TO C 36 v 37 3 * LCOMP 

35 SMCHR = « TRUE* 

36 CALL ISUBI 

8 TEST WILL BE TRUE 

44 ICSC = ICSOISIGNI ISUB^IPF) 

8 RESOLVE SCALE FACTORS 

0 CONTINUE 

CALL DEBUG 2 l 6 HSTAT ,50) 

CALL DEBUGS f 5HDNBR1 9 DNBR *4! 

H = DO 
I ESC- 1 ABS f ICSC 3 
00 63 1=1*4 

61 IF !IESC*LT* LOCin GO TO 63 

62 I ESC* I ESC-LDC ! I 
H=H#FD{!) 

GO TO 61 

63 CONTINUE 

IF Ii:SC«lT®03 GO TO 65 

64 DNBR * DNBR^H 
GO TO 98 

T F OTH 

70 CALL ICHARI£$73*$19t 173 
LV ALJE=« TRUE# 

71 IF C NO T ARG* GT * LEVEL ! LCNVRT=4 

8 LOGICAL CONSTANTS NOT CONVERTED 

RVALUE 1 2 3=0* 

A~Z OTH 

72 CALL I CHARI ( $9130« $99® 2 13 

s DISCARD REST OF WQRD ? MUST FIND 

GO TO 72 

73 LVAL'JE=® FALSE* 

GO TO 71 

65 DNBR * DN 8 R/H 

8 VALUE = DNBR 

SHCHR = #?RUE® 

99 CONTINUE 

CALL DEBUGS C 6 HDNBR 2 * DNBRf 4 1 
CALL 0EBUG3C 5HVAlUEt VALUE® 4 3 
CALL DE8UG2I 6 HICSC * ICSC) 

CALL DEBUG2I 6 HIPF *IPF) 

CALL DEBUG 2I6HIESC * IESC1 

CALL DEBUGR 

RETURN 

9130 KERTVP = 130 
GO TO 99 
END 


63 

54 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
IDO 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
119 
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1BFTC ITABLI OECK 

SUBROUTINE TO CONSTRUCT TABLE ENTRIES 
SUBROJT I NE ITABLICIT I 
CALLED FROM INPUT 
CALL DEBUGC I 6HIT ABLI ) 


C 

C 

C 


LOGICAL ABORT,DOLLAR, ERM ARK, LIMALF* LOCK, NOLI ST, NONEW, MOD ALL, 

* NSTDI R, SMCHR, TEST 

EQUIVALENCE C STACK* I ST ACK ) , { VALUE , KVALUE » RVALUE ),{ NAME , ANAME ) 
EQUIVALENCE CICOMNI, I SUB ) 9 i I MAGE * I MAGE1I , U PAR AM, ABORT 5 
DIMENSION IT til 


10 


30 


31 


SMCHR = a TRUE® 

CALL I SUB! 

ISUBX = I SUB 

CALL ICHAR2($9120,25) 

GO TO 3 
CONTINUE 

CALL DEBUG 2 C 6HST ATMT , 30 ) 
KOIF = 1 


* ERROR IF NO = 


1 

2 

3 

4 

5 


DIMENS 

ION I FT ( 31 ). IPTAB( 

211 ? ITABI 

65) 



6 

DIMENS 

ION ANAME ( 15 ) » IMAGE180) , IMASEll 81) , IPARAMI 9) 


7 

& 

, KSTACK f 

27) , NAME! 15) ,RVALUE(2> ,STACK(27) 


8 

Q 

COMMON 







7 

10 

©/ICOMN 

1/ VALUE 

9 I COMP 

, IFNTYP 

9 I MAGE1 

9 I RADI X 

® I SUB 

11 

© 

, KCH 

,KCNVRT 

, KCOUNT 

, KDI F 

® KFLD1 

9 KFLD2 

12 


? LCOMP 

, LCMVRT 

* LEVEL 

9 LFRT 

p LOOK 


13 

© 

, MCNVRT 

, MDIF 

,MOOALL 

, MSTOR 



14 

© 

t NAME 

TERROR 

■ 9 NDNEW 

* NO TAR G 



15 


9 SMCHR 

, TEST 

9 ERMARK 




16 

• /ICNST 

1/ BLANK 

« BLANKS 

, DOLLAR 

$ EOS 



17 

© 

» I COMMA 

, I DOLAR 

,£FT 

tIPTAB 

, I TAB 


18 

» 

ip KAM10 

, KBPC 

, KBP W 

, KCPCD 

, KERTYP 


19 

« 

, KZERO 

, NOPRNT 

9 TAB1 




20 

« /IPAR4 

M/ ABORT 

, K IUN I T 

tKOUNIT 

tLIMALF 

? LOCK 

,LOCX 

21 

m 

9 NOLIST 

, MSTDI R 

9 TRACE 




22 

* / ISTAK I / STACK 

tISTDIM 

* KSTACK 

tLEVLIM 



23 








24 

INTEGER BLANK 

9 BLANKS 

9 EOS 

« I DOLAR 

, TAB1 

, TRACE 

25 

DOUBLE 

PRECISION 

STACK, VALUE 




26 


2? 

28 

29 

30 

31 

32 


KDIF = 1 


33 

ISUBX * 1 


34 

ITYPE = 1 


35 


8 ALWAYS INITIALIZE TO ©REAL© 

36 

i A -Z OTH 


37 

CALL I CHARI ? $1 , $9120, 26 5 


38 


9 SKIP ® ABLE 5 IN TABLE 

39 

CONTINUE 


40 

CALL DEBUG2C 6HSTATMT , 3 ) 


41 

CALL I CHAR4( $4, $9120,7,9) 


42 

• ) 0~9* OTH 


43 

GO T3 C 30 ,98 ,10 ,9120), 

LCOMP 

44 

, A-*Z OTH OTH 


45 

GO T3 13 ,20, 9120,91205 

9 LCOMP 

46 

KERTYP = 120 


47 

9 

ILLEGAL CHARACTER 

48 

GO TO 98 


49 

CONTINUE 


50 

CALL DEBUG2 C 6HST 0-9 ,10) 


51 


52 

53 
5 4 

55 

56 

57 

58 

59 

60 
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C SPLIT TYPES I INT*REALtDP,MO CONVERSION* FUNCTION ^SUBROUTINE) 61 

CALL I CHAR4U32*$33*3*5) 62 

I F ( LCD MP® GT ® 1 ) GO TO 9120 63 

KDIF =2 64 

GO TO 33 65 

32 IF (L:0MP*EQ»3) GO TO 9120 66 

I TYPE * LCOMP 67 

GO TO 34 68 

33 ITYPE = LCOMP+2 69 

C A~Z OTH * 70 

34 CALL I CHARI ($9120g$3»21) 71 

GO TO 34 72 

20 CONTINUE 73 

C CALL D EBUG21 6HSTATMT * 20 ) 74 

CALL IMAMEN 75 

50 CONTINUE 76 

C CALL DEBUG2 { 6HST ATMT * 50 ) 77 

ITBUFF = IFLD4{ ITYPE,0»3 ? ITBUFF ) 78 

ITBUFF*IFLD4{MST0R*3»4, ITBUFF ) 79 

I TBUFF = I FLD4C I SUBX, 7 * 25 * I TBUFF ) 80 

C CALL DEBUG2 ( SHI TYPE v I TYPE ) 81 

C CALL 0EBUG2 ( 5HMST0R $ MSTQR ) 82 

C CALL 0EBUG2 I5HISUBX, ISUBX) 83 

C CALL DEBUG4 (6H ITBUFF* ITBUFF* 2 ) 84 

ISUBX = ISUBX * KDIF 85 

CALL I LOOK I ( $56* I T ) 86 

IF((IT(2)*NE<*0)» AND* ((LOOK+MSTOR *2 )* GT . I T C 2 ) )) GO TO 9320 87 

IT t LOD< ) - I TBUFF 88 

DO 55 K=l 9 MSTOR 89 

LOOK- LOOK+1 90 

55 I T C LOOK ) =NAHE ( K 1 91 

C CALL DEBUG2 ( 6HST ATMT * 55) 92 

LOQK*L D0K4-1 93 

I T { LOOK ) = 0 94 

GO TO 3 95 

56 IT f LOOK ) * ITBUFF 96 

C CALL 0 EBUG2( 6HSTATMT » 56 ) 97 

GO TO 3 98 

98 CONTINUE 99 

C CALL DEBUGR 100 

RETURN 101 

9320 KERTYP *“320 102 

CALL IERORI 103 

GO TO 3 104 

END 105 


SIBFTC I SUB! DECK 

SUBROUTINE ISUBI 1 

C ISUBI FINDS SUBSCRIPTS AND INTEGER CONSTANTS 2 

C CALLED FROM 3 

C INAMEI 4 

C INMBRI 5 

C INPUT 6 

C ITABLI 7 

C I SUB BEGINS PROCESSING HUH THE NEXT CHARACTER® 8 

C CALL DEBUGC { SHI SUB! ) 9 

C COLLECTS INTEGER OF BASE IRADIX TERMINATED BY A SPECIAL CHARACTER 10 

DIMENSION I FT C 31)* IPTABI 211* ITABI 65) 11 
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c 


C 


C 

80 


C 

30 

35 

C 

99 


10 


DIMENSION AN AM E( 15) ? IMAGE I 80 ) * IMAGE!! 81$ * IPARAMt 9) 
®KSTACK(27) $ NAME! 15) *RVALU£f 2) f STACK«2?) 


COMMON 


« / 1 CONN I / VALUE 

* I COMP 

tIFNTYP 

fIMAGEl 

9 IRADIX 

$ ISUB 

• * KCH 

• KCNVRT 

f KCOUNT 

t*C DIF 

» KFLD1 

sKFLOZ 

• * LC3MP 

* LCNVRT 

*LEVEL 

* LFRT 

* LOOK 


• * MCNVRT 

* MD IF 

*MODALL 

* MSTOR 



* * NAME 

vNERROR 

*NQNEW 

* NOT ARG 



* * SMCHR 

* T EST 

*ERMARK 




s/ICNSri/ BLANK 

f BLANKS 

* DOLLAR 

* EOS 



. * ICOMMA 

* I DOLAR 

* IFT 

*IPTAB 

* ITAB 


• f KAM10 

* KBPC 

*KBPW 

,K CPCD 

« KERTYP 


* * KZERO 

sNOPRNT 

t TAB1 




« / I P ARAM/ ABORT 

* X I UNI T 

tKOUNIT 

* L I MALF 

* LOCK 

j LOCK 

* * NOLI ST 

sMSTDIR 

*TRACE 




• /ISTA< 1/ STACK 

»ISTDIM 

*KSTACK 

* LEVL I M 



INTEGER BLANK 

* BLANKS 

*EOS 

t I DOLAR 

» TAB1 

* TRACE 


DOUBLE PRECISION STACK* VALUE 

LOGICAL ABORT * DOLLAR * ERMARK * LI HALF s LOCK* NOLI ST * NONE W* MOD ALL t 
* NSTDH * SMCHR* TEST 

EQUIVALENCE ( ST ACK* I STACK) * { VALUE t KVALUE » RVALUE ) * (NAME* ANAME ) 
EQUIVALENCE UCOMNI* ISUB ) * ( IMAGE# I MAGE1 ) * ( I PARAM* ABORT ) 

I SUB = 0 

A-Z 0-9 OTH 
CALL I CHAR I ($10* $99* 12) 

IDIGi T-KCH-KAM10 

• VALUE OF LETTER USED AS DIGIT 
IFUDISIT «GE« IRADIX) GO TO 99 
IS JB = ISUB * IRADIX * IDIGIT 

3 ACCUM TOTAL* IRADIX 

GO TO 80 
SMCHR = » TRUE® 

3 ALLOW SAME CHARACTER TO BE READ 

CALL DE8UG2! 6H*I SUB! » ISUB) 

CALL DEBUGR 
RETURN 

IDIGIT=KCH~KZERO 

3 VALUE OF DIGIT 

GO TO 30 
END 


12 

13 

14 

15 

16 

17 

18 
19 
2D 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
45 

47 

48 

49 

50 

51 

52 

53 


BFTC IXQTI DECK 

SUBROUTINE IXQTI C ARGL*ARGS ) 1 

USER MAY PUT HIS OWN COMMON STATEMENTS IN THIS ROUTINE AND 2 

USE f HEM TO SUPPLY ARGUMENTS T3 HIS CALLS IF HE DESIRES 3 

COMMON 4 

m /l P ARAM/ ABORT S KIUNIT *KOUNIT» LIMALF *LOCK* LOCK * NOLIST* NSTDIR 5 

« t TRACE 5 

DOUBLE PRECISION ARSSC27)* ARGL f ARG22 7 

DIMENSION ARG2I2) 8 

EQUIVALENCE f ARG2* ARG22 ) 9 

C 10 

M = DABS! ARGS(X) ) 11 

IF ( IT® X » OR ® M®GT ® 16) GO TO 99 12 

GO TO (1*2*3*4*5*6*7*8*9*10* 11*12*13*14*15*16) *M 13 
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1 ARGL = COS S ARGL I 14 

GO TO 100 15 

2 ARGL = EXP ( ARGL ) 15 

GO TO 100 17 

3 ARGL « ALOG( ARGL ! 18 

GO TO 100 19 

4 ARGL = SIN(ARGL) 20 

GO TO 100 21 

5 ARGL = SORTS ARGL » 22 

GO TO 100 23 

6 ARGL = AT AN 2 ( ARGS ( 2) » ARGL ) 24 

GO TO 100 25 

C PRINT FUNCTION 25 

7 ARG22 = ARGS ( 2 ) 27 

WRITE ( KOUNI T» 101 ) ARG2 > ARGL 28 

101 FORMAT (1H 2A6.3H = ,D26.17) 29 

GO TO 100 30 

8 ARGL « SNGL(ARGS(2))**IFIX(SNGL(AR3L+DSIGN(.5D0,AR3L) ) > 31 

GO TO 100 32 

9 ARGL = ABSS SNGLS ARGS ( 2 ) > )**SNGL S ARGL > 33 

GO TO 100 34 

10 ARGL = ABSS ARGL ) 35 

GO TO 100 35 

C DISCS RIMINENT) FUNCTION 37 

11 IF S ARGL ) 102,103,104 38 

102 ARGL * ARGS S 2 I 39 

GO TO 100 40 

103 ARGL = ARGSS3) 41 

GO TO 100 42 

104 ARGL = ARGSS4J 43 

GO TO 100 44 

12 CALL LOCKXSARGL) 45 

GO TO 100 45 

13 CONTINUE 47 

GO TO 100 48 

14 CONTINUE 49 

GO TO 100 50 

15 CONTINUE 51 

16 CONTINUE 52 

100 CONTINUE 53 

C CALL DEBUGR 54 

RETURN 55 

99 KERTY? =“610 56 

CALL IERORI 57 

GO TO 100 58 

END 59 


$ I BFTC LOCKX OECK 

SUBROUTINE LOCKX(J) 1 

COMMON 2 

./IPARAM/ ABORT .KIUNIT ,KOUNIT , LI MALF ,LOCK ,LOCX 3 

. , NOLIST , NSTDI R , TRACE 4 

LOGICAL U , LOCK 5 

LOCK = J 5 

RETURN 7 

END 8 
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; DEBUSK DECK 
SUBROUTINE DEBUGX 

DIMENSION I SUBN i 20 1 


1 IMITALI Z&TiON 


TRACE = 0 NO PRINTING 

TRACE = i PRINT DEBUG 2*3 CALLS ONLY 

TRACE = 2 PRINT DEBUG 2+3 CALLS ONLY 

TRACE = 3 PRINT DEBUG 2+3 AND STACK PRINT 

TRACE = 4 PRINT DEBUG 2+3 AND STACK PRINT AND CALLS FROM C-§AR 

DIMENSION IFTI273* IPTAB(213* ITABC653 
DIMENSION AMAMEQ5) 9 IMAGE C 803 * IMAGE1C 81 1 « IPARAMC 93 
. sKSTACK C 27) * NAME 1 15 ) ^RVALUE! 23 f STACKC27) 

COMMON 


®/ICQMNi/ VALUE 

9 I COMP 

tIFNTYP 

9 IMAGE1 

« I RADIX 9 ISUB 

14 

. 9 KCH 

jKCNVRT 

9 KCOUNT 

9 KDI F 

9 KFLD1 « KFLD2 

15 

• sLCQMP 

sLCNVRT 

tLEVEL 

9 LFRT 

9 LOOK 

IS 

* 9 MCNVRT 

sMDIF 

o MODALL 

9 MSTOR 


17 

* s NAME 

TERROR 

sNONEW 

9 NOTARG 


18 

* sSMCHR 

§ T EST 

? ERMARK 



19 

« / ICNST 1 / BLANK 

s BLANKS 

9 DOLLAR 

sEOS 


20 

* t ICOMMA 

9 I DOLAR 

9 IFT 

sIPTAB 

9 I TAB 

21 

• 9 KAM 10 

9 KBPC 

sKBPW 

9 KCPCD 

t KERTYP 

22 

• s KZERO 

* MOPRNT 

tTABl 



23 

® / 1 P AR4 M/ ABORT 

9 K I UN I T 

t KOUNIT 

9 L I HALF 

tLOCK 9 LOCK 

24 

* 9 NOLIST 

sMSTDIR 

sTRACE 



25 

./ISTAKI/ STACK 

9 I STD! M 

f KSTACK 

9 LEVL IM 


26 

27 

28 

INTEGER BLANK 

^BLANKS 

9 EOS 

t IDOLAR 

> TAB1 9 TRACE 

DATA B ADC AL/ 6HBADCAL / 




29 

DOUBLE PRECISION 

ALFARG f ISUBN 9 STA 

CK 9 VALUE s 

DBLANK* DARG 

30 

LOGICAL ABORT ? DOLLAR* ERM ARK 

9 LIMALF 9 

LOCK a MOL I ST 

9 NONEW 9 MOOALLs 

31 

•NSTDIR.SMCHRtTEST 





32 

EQUIVALENCE ( STACK# I STACK ) 9 

( VALUE 9 

KVALUEtRVALUE) , (IMAME.ANAME) 

33 


EQUIVALENCE ( ICOMNI* I SUB 3 * f I MAGE* IMAGED t 1 1 PAR AM f ABORT 3 
i v ( DBLANK* BLANK ) 

ISUBC = 0 
DO 10 I « l s 10 
ISUBNC II = DBLANK 
IF { TRACE* EQ® 0 3 GO TO 99 
WRITE (KOUNIT 9 4103 
GO TO 99 

ENTRY DEBUGCC ISUBNA) 

DOUBLE PRECISION ISUBNA 

9 NEW SUBROUTINE CALLED 
IF C ISUBC*GT*10$ GO TO 98 
ALFAR3 * DBLANK 
NUMAR3 = -1 
ISUBC = ISUBC+1 
I SUBN! ISUBC) = ISUBNA 
IRTRACE ® GE«43 GO TO 400 
GO TO 99 


ALFAR3 = 8ADCAL 

NUMAR3 = ISU8C 
GO TO 400 


9 CALLS MIGHT GET OUT OF RANGE 


ENTRY DEBUGR 
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C 8 CALL AT RETURN 59 

IF ( I $ UBC oLT * 1 5 GO TO 98 60 

ALFAR3 = DBLANK 61 

NUMARG * -1 62 

ISUBNf ISUBC) * DBLANK 63 

ISUBC = ISUBC - 1 64 

IF I TRACE ® GE « 4 I GO TO 400 65 

GO TO 99 65 

C 67 

ENTRY DE8UG2 ( ALF AR* NUMAR ) 68 

DOUBLE PRECISION ALFAR 59 

NUMARG = NUMAR 70 

ALFAR3 - ALFAR 71 

20 IF i TRACE *LT»1 5 GO TO 99 72 

400 WRITE ( KOUNIT * 405 ) I I SUBNU) * I = 1 f 4 ) t ALF ARC® NUMARG , 73 

*KC0UNT*SMCHR*KCH*KFLD1* ICQMP*KFLD2*LC0MP 7 4 

99 RETURN 75 

C 76 

ENTRY DEBUG3(ALFAR*DNUMAR* ! TYPE ) 77 

DOUBLE PRECISION DMUMAR 78 

ENTRY DEBUG4C ALFAR* DNUMAR* I TYPE) 79 

DARG = DMUMAR 80 

NUMAR3=NUMAR 81 

ALFARO = ALFAR 82 

IF { TRACE •LT«1S GO TO 99 83 

GO TO 130*40*50*60)® I TYPE 84 

30 WRITE { KOUNI T * 406 ) ( ISUBNI I) * I = i* 4) * ALF ARG, NUMARG , 85 

*KCOUMTf SMCHR*KCH*KFLDlf I COMP * KFLD2 * LCOMP 86 

GO TO 99 87 

40 WRITE ( KOUNIT *407 ) I I SUBNU) * I =1 f 4 ) * ALF ARG * NUMARG * 88 

»KCOUNT *SMCHR jKCH* KFL D1 * iCDMP * KFLD2 , LCOMP 89 

GO TO 99 90 

50 WRITE ( KOUNIT * 408 ) it SU8NC I ) * 1 = 1 , 4 ) f ALFARG » NUMARG » 91 

• KCOUNf »$MCHR*KCH*KFLD1*IC3MP*KFLD2,LC0MP 9 2 

GO TO 99 93 

60 WRITE C KOUNIT * 409 1 f ISUBNC I) * I =1 * 4 ) , ALF ARG * NUMARG * 94 

« KCOUNT * SMCHR®KCH*KFLD1 * I COMP * KFLD2 * LCOMP 95 

GO TO 99 96 

405 FORMAT { 1H ®29X*5«A6* IX), 124* 97 

®1H( * I3®L2*1H) * A6® 2H I * 1 3 # I 2? 1H ) * 2H < 9 I3 9 I2 9 lHn 98 

406 FORMAT ( 1H ,29X*5!A6* iX),E24*8* 99 

« 1H I ®13®L2*1H) 9 A6 9 2H I *13*12® 1H) * 2H C,I3*I2 9 1H)) 100 

407 FORMAT ( 1H * 29X® 5 1 A6® 1 X ) * UX® 012® IX * 101 

» XH S * 1 3 * L2 * 1H) * A6 * 2H C * 13*12* 1H) ®2H (*I3*I2*1H) ) 102 

408 FORMAT C 1H * 29X® 5 i A6t 1 X ) , I6X * A8® 103 

®lH( f I3®L2*1H) ? A6 ? 2H I f I 3*1 2® 1H > 9 2H ( 9 I3 9 I2 9 1H)) 104 

409 FORMAT ( XH »29X*5!A6® IX ) ® D24® 18* 105 

«1H! §13*12* 1H) ? A6*2H C * 1 3 * I 2 9 1H ) 9 2H S*I3®I2*1HI) 106 

410 FORMAT i 29X® UHDEBUG TRACE* 52X® 9HI--XCDUNT 9 5X® 8HI — LI ST1/ 107 

« 68X * 9-ID ARG OR® 15X® 9HI I-SMCHR * 5X * 10HI I — ICOMP / 108 

a 29X * 13 HSU BR OUT I NES CALLED® UX*7HALF ARG * 7X * 1 1HNUMER IC ARG*9X* 109 

© 3HI I* IX® 5HKCH-I * 5X? 16HI I I--LIST2 / 110 

® 92X* 3-1 1 I*5X*1HI*5X* 18HI I I I--LC3MP) 111 

END 112 
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$1 BFTC ST AC< P DECK 

SUBROUTINE STACKP 

DIMENSION I FT ( 27 ) 5 I PTAB (21 ) * I TAB C 65 ) 

DIMENSION AMAME ( 15 ) * IMAGE(80) * I MASE1 1 81 ) * I PA, RAM ( 9 ) 
» *KSTACK!27) tNAMEC 15) * RVALUE ( 2 ) * STACK ( 27 ) 

C 

COMMON 


89 

86 

85 

99 


INTEGER 

DOUBLE PRECISION STACK* VALUE 

LOGICAL ABORT *DOLLAR*ERMARKfLIMALF*LOCK*MOL 1ST, NONEW*MODALL» 

> NSTDI R* SMCHR* TEST 

EQUIVALENCE (STACK* I STACK) * ( VALUE * K VALUE* RVALUE ) , ( NAME* ANAME ) 
EQUIVALENCE (1CDMNI, I SUB ) , ( IMAGE , I MAGE1 ) * ( I PAR AM* ABORT ) 

IF ( TRACE *LT« 3) GO TO 99 
LEVEL* = LEVEL + 3 

WRITE ( KOUNIT *85 ) LEVEL* VALUE *K VALUE * RVALUE* LOCK 
WRITE? KOUNIT *89) (STACK? I ) * 1 = 1* LEVELX ) 

WRITE? KOUNIT * 86 ) ( KSTACK ( I) * I=1*LEVELX) 

FORMAT ( 11D12*4) 

FORMAT (11112) 

FORMAT ( 7H LEVEL=I3*7H VALJE=D25* 17* 8H KVALUE=I3*3H * 0* 2 ( IX * 01 2 ) * 
» 6H LDC K= 1 6 ) 

RETURN 

END 


1 

2 

3 

4 

5 

6 


VALUE 

* ICOMP 

* IFNTYP 

* IMAGE1 

* I RADI X 

* I SUB 

7 

KCH 

* KCNVRT 

* KCOUNT 

* KDIF 

tKFLOl 

* KFLD2 

8 

LCQMP 

*LCNVRT 

* LEVEL 

* LFRT 

* LOOK 


9 

MCNVRT 

* MDIF 

*MODALL 

* MSTOR 



10 

NAME 

TERROR 

*NONEW 

*NOTARG 



11 

SMCHR 

f TEST 

* ERMARK 




12 

BLANK 

* BLANKS 

, DOLLAR 

* EOS 



13 

ICQMMA 

* I DOLAR 

*IFT 

* I PTAB 

* ITAB 


14 

KAM10 

* K8PC 

* KBPW 

* KCPCD 

* KERTYP 


15 

KZERO 

* NOPRNT 

* TAB1 




16 

ABORT 

*K I UN IT 

* KOUNIT 

*LIMALF 

* LOCK 

* LOCK 

17 

NOLIST 

* MSTDI R 

* TRACE 




IB 

STACK 

tfSTDIM 

*KSTACK 

*LEVL I M 



19 







20 

BLANK 

, BLANKS 

* EOS 

* I DOLAR 

* T AB1 

, TRACE 

21 


22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


$ I BMAP 

IFLD 

DECK 



TTL 

IFLD AND IFLD4 PROGRAM 

i 


ENTRf 

IFLD 

2 


ENTR/ 

IFLD4 

3 

* 

FUNCTION 

( I * N*DATA) 

4 

» 


START EXTRACTION WITH BIT 1*1 

5 

* 


EXTRACT N BITS FROM DATA AND RETURN IN REGESTER 1 

6 

IFLD 

SAVE 


7 


CAL* 

3*4 I 

8 


STA 

LGL 1 

9 


CAL* 

4*4 N 

10 


STA 

LGL2 

11 


LDQ* 

5*4 DATA 

12 

LGL1 

LGL 

** ** = I 

13 


ZAC 


14 
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: ST AC< P DECK 
SUBROUTINE STACKP 

DIMENSION IFTC27J ® IPTABC21) , ITABC65) 
DIMENSION AN AME { 15 I * IMAGE ( 80) , IMASEK81) 
► , KSTACK! 271 , NAME! 15) ,RVALUEC2) 


, I P ARAM C 9 \ 
sSTACK«27) 


COMMON 


VALUE 

* I COMP 

, IFMTYP 

, I MAGE1 

t IRADIX 

tISUB 

7 

KCH 

» KCNVRT 

y KCOUNT 

s KDI F 

, KFLD1 

, KFLD2 

8 

LCOMP 

*LCNVRT 

« LEVEL 

t LFRT 

, LOOK 


9 

MCNVRT 

, MD IF 

,MODALL 

, MSTOR 



10 

NAME 

, NERROR 

, NONE W 

, NOT ARG 



11 

SMCHR 

, TEST 

, ERMARK 




12 

BLANK 

, BLANKS 

, DOLLAR 

, EOS 



13 

ICOMMA 

v I DOLAR 

f I FT 

, I PTAB 

, I TAB 


14 

KAM10 

sXBPC 

, KBPW 

, KCPCD 

, KERTYP 


15 

KZERO 

, NOPRNT 

t TAB1 




15 

ABORT 

tKIUNIT 

yKOUNIT 

,LIMALF 

t LOCK 

, LOCK 

17 

NOLIST 

, MSTDI R 

t TRACE 




18 

STACK 

ylSTDlM 

y KSTACK 

,LEVLIM 



19 







20 

BLANK 

y BLANKS 

tEOS 

f IDOLAR 

yTABl 

, TRACE 

21 


INTEGER BLANK , BLANKS ? EOS , I DOL AR , T AB1 , TRACE 

DOUBLE PRECISION STACK, VALUE 

LOGICAL ABORT » DOLLAR » ERMARK* L I MALF* LOCK, MOL I ST, NONEW,MQDALL f 
.NSTDI R, SMCHR, TEST 

EQUIVALENCE ( STACK, I STACK) , ( VALUE , K VALUE , RVALUE ),( NAME , ANAME ) 
EQUIVALENCE ( ICGMNI, I SUB ) , { I MAGE , I MAGE1 ) , l I PARAM, ABORT ) 

IFITRACE ® LT * 3) GO TO 99 
LEVELX = LEVEL «- 3 

WRITE! KOUN IT, 85) LEVEL, VALUE, KVALUE, RVALUE, LOCK 
WRITE! K0UNIT,89) (STACKU ) 9 I -1 , LEVELX ) 

WRITE! <GUN I T , 86 ) (KSTACK! I) , 1=1, LEVELX ) 

FORMAT ( 1 1 D12 ® 4 ) 

FORMAT (11112) 

FORMAT { 7H LEVEL=I3,7H VALUE=D25« 17, 8H KVALUE=I3,3H , 0 , 2 ( IX , 0 1 2 ) , 
i 6H L0CX=I6) 

RETURN 

END 


$ I BMAP 

IFLD 

DECK 




TTL 

IFLD AND 

IFLD4 PROGRAM 

1 


ENTiU 

IFLD 


2 


ENTR i 

IFLD4 


3 


FUNCTI ON 

( I ? N , DATA ) 

4 

* 


START EXTRACTION! WITH BIT 1 + 1 

5 

* 


EXTRACT 

N BITS FROM DATA AND RETURN IN REGESTER 1 

5 

IFLD 

SAVE 



7 


CAL * 

3,4 

I 

8 


STA 

LGL 1 


9 


CAL ^ 

4,4 

N 

10 


STA 

LGL 2 


11 


LDU* 

5,4 

DATA 

12 

LGL 1 

LGL 

* * 

* » SB I 

13 


ZAC 



14 
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LGL2 

LGL 



15 


XCL 



16 


XCA 



1? 


RETURN 

IFLO 


18 


SPACE 

2 


19 

* 

FUNCTION 

OR SUBROUTINE I FLD4 1 NUDATA* I, H 9 DATA 1 

20 

* 

PUT LOW ORDER N 

BITS OF NUDATA IN DATA 

21 

«• 

STARTING WITH 

THE ITH*1 BIT® 

22 

& 

THE MODIFIED DATA IS LEFT IM REG 0 FOR FUNCTION TYPE USAGE 

23 

* 

I.E. 

IX=IFLD4(NUDATA) ,I,N»DATA) 

24 

* 

DATA IS 

UNCHANGED 

IX CONTAINS THE CHANGED DATA 

25 

IFLD4 

SAVE 



26 


CAL* 

4*4 

I 

2? 


STA 

II 


28 


STA 

12 


29 


CAL* 

5*4 

N 

30 


STA 

N1 


31 


STA 

N2 


32 


ZAC 



33 


LDQ* 

6*4 

DATA 

34 

11 

LGL 


**- 1 

35 


SLW 

TEMP 


36 

HI 

LGL 

#* 

*» = N 

3? 


CAL* 

3*4 

Z 

38 

N2 

LGR 


*# = N 

39 


CAL 

TEMP 


40 

12 

LGR 



41 


XCA 



42 


RETURN 

IFLD4 


43 

TEMP 

PZE 



44 


END 



45 
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APPENDIX B 


HUFF INPUT ROUTINE 

The first version of the Huff Input Routine was reported in reference 6. The Huff 
Input Routine provides more versatility in reading input data into the computer than the 
NAMELIST feature in FORTRAN. The Huff Input Routine has the ability to make simple 
arithmetic manipulations (such as conversion of units) during loading and to load alpha- 
numeric data. While not an indispensable feature, it has been found to be quite conven- 
ient. The Huff Input Routine also allows for the automatic printout of data cards at execu- 
tion time. 

The following sections contain a general description of the Huff Input Routine and its 
usage. 


Usage 

The programmer transfers control to the INPUT routine with a standard FORTRAN IV 

call 


CALL INPUT (5, 6, 1, X, ITABLE) 

Argument 1 is the system input tape number (5 on the Lewis system). Argument 2 is the 
system output tape number (6 on the Lewis system). Argument 3 is the identifying num- 
ber of a data group. This value is compared with an identification number occurring on 
the input card ($DATA card). If the values agree, the data are processed until another 
$DATA or end-of-data ($END) card is encountered. If the values do not agree, no data 
are processed and control is returned to the calling program. Argument 4 is the Array X, 
which serves as a reference point for the storing of input data. Since all data are stored 
relative to X, the programmer must provide fixed relations between the location of X and 
other locations to be loaded (e. g. , through the use of common blocks and/or equivalence 
statements). In this case, X is "WORD, M the first name in the labeled common block 
"ALL.” Common blocks ALL, DESIGN, FRONT, SIDE, BACK, and DUMMY are in all 
routines and hence are loaded sequentially so that the location of all variables is known. 
Argument 5 is the array ITABLE, which contains the names of the variables used on the 
cards and their subscript location relative to X. Sufficient space must be provided in the 
calling program for storing the table of names. This is done by a DIMENSION statement. 
The dimension of ITABLE(3) must initially be zero. 
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Types of Input Statements 


$DATA statement . - The $DATA statement identifies a group of data with an identifi- 
cation number. It must be the first statement on a card. For example, $DATA(1) or 
$D(1) on the first card of a data group causes the value 1 to be compared with argument 3 
in the calling sequence. H unequal, control is returned to the calling program. If equal, 
data are loaded until the next $DATA or $END statement is reached. 

$TABLE statement . - The $TABLE statement makes a list of names needed for load- 
ing data. Consider for example that the real variable names VELOCITY, MASS, and 
RADIUS are to be assigned to memory locations X(l), X(2), and X(3), respectively. The 
card would be punched $TABLE (.REAL. , 1 = VELOCITY, 2 = MASS, 3 = RADIUS). 

These variables will be treated as real in any subsequent loading of data. A limit of 
15 computer words is placed on the length of a name. Since .REAL, is what designates 
the mode of a name, a name may begin with any alphabetic letter. For example, the 
statement $TABLE (. INTEGER. , 20 = INDEX, SUBSCRIPT, I) will place these names in 
the table and any values subsequently loaded will be stored in X(20), X(21), and X(22), 
respectively, as integers. In a similar manner $TABLE (. DOUBLE PRECISION. , 

10 = RADIUS DOUBLE, . LOGICAL. , 12 = SWITCH1) causes the name RADIUS DOUBLE 
to be stored in the table as a double-precision variable equivalent to X(10) and X(ll), and 
the logical variables SWITCH 1 and SWITCH 2 will be equivalent to X(12) and X(13). 

Note that $TABLE statements are loaded as Number = Name to avoid confusion with 
loading statements. 


Loading Statement 

The loading statement loads data by taking the name of a variable previously appear- 
ing in a $TABLE statement and setting it equal to a value which may be of several forms. 

Numeric values . - Standard FORTRAN language is used; for example, VELOCITY = 
3. 4, MASS = 32 (no decimal point is needed and MASS will have the REAL value 32), 
RADIUS = 4E21, and INDEX = 3. Data can be continued from one card to another; for 
example, SUBSCRIPT may appear at the end of one card and = 47 on the next card. 

Subscripts may be used. Since 3 = RADIUS, RADIUS(2) = 6, 10, 12, , 14 will put 
real numbers in X(4), X(5), X(6), and X(8) and leave X(7) unchanged because of the double 
comma. If new values are assigned to a variable before the next $D(1) card, the new 
value will override the previous one. For example, RADIUS(2) = 8 will override the 
RADIUS(2) = 6 card. 

Internally addressed values . - An internally addressed value is one that refers to the 
contents of memory by name. RADIUS (7) = RADIUS(3); RADIUS(INDEX) causes 
RADIUS (7) to be replaced by the value of RADIUS(3) and RADIUS(8) to also be replaced 
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by RADIUS(3) since INDEX = 3. 

The statement RADIUS(7) = RADIUS(MDEX + 1), however, is ILLEGAL. 

Arithmetic expressions . - Provisions have been made to allow arithmetic operations 
to be performed on data at execution time. The operations + (addition), - (subtraction), 
♦(multiplication), and /(division) and the functions, included among which are SQRT, 

EXP, SIN, COS, and PWR(x, y)(=x**y), may be used with name or numbers (or any ex- 
pression that has a value) to compute the value of an arithmetic expression. Parentheses 
may be used to indicate the order of performing the operations. The computations are 
analyzed from left to right and any intermediate results are stored in up to 24 locations 
in the core (the stack) which is sufficient for fairly complex expressions. All numeric 
operations are carried out in double-precision floating-point FORTRAN arithmetic. As 
an example, RADIUS (2) = RADIUS(2) *SQRT(RADIUS(2)) or RADIUS(2) = PWR(RADIUS(2), 

1. 5) will set RADIUS(2) = 8 3 / 2 . 

Alphanumeric expressions . - Alphanumeric data may be entered by placing the vari- 
able name in the "REAL” list and then setting the variable equal to the data by first en- 
closing in parentheses the length of the word to be read in. As an example, 

Q = (A39)THIS IS AN EXAMPLE OF ALPHANUMERIC DATA 

The (A39) gives the length of the data including imbedded blanks. Of course, since on the 
IBM 7094 there are six characters per word, Q must internally be dimensioned to at 
least 7. 


Printing Input Cards 

Each input card processed will normally be written on the tape specified by the sec- 
ond argument of the calling sequence. An end-of-statement symbol read on the card will 
cause interpretation of the card to stop at that point and permit comments to be placed 
on the remainder of the card to be printed with the output. In order to avoid printing the 
card at all, the nonprint character is placed in the next column following the end-of- 
statement character. The developers of the routine selected the sign 4 for both charac- 
ters. This is punched as a colon on an IBM Model 29 Keypunch and corresponds to a 2-8 
punch. 

If the character following the end-of-statement symbol is other than a nonprint char- 
acter, it is inserted as the printer control character in the first position of the output 
format before the card is written on the output tape. If no end-of-statement character 
occurs on the card, a blank printer control character is used. Comment cards having 
the end-of-statement character as the first nonblank character will be printed and may 
be placed anywhere except in a continued alphabetic field. 
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In summary, the end- of -statement character has the effect of moving the end of the 
card forward to the column ahead of the end- of- statement character. The column follow- 
ing it is printer control. 

If the control parameter NO LIST is true, printing is suppressed for all cards. 
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APPENDIX C 


SYMBOLS 

General Symbols Internal to Program 

Variables in program are formed by combining these symbols. 

Station Numbers 

See figures 1 to 4 for each type of engine. 


Thermodynamic Properties 


AM Mach number 

FAR fuel- air ratio, f/a 

H enthalpy, Btu/lbm 

P total pressure, atm 

PS static pressure, atm 

S entropy, Btu/°R/lbm 

T total temperature, °R 

TS static temperature, °R 

V velocity, ft/sec 

Component Symbols 

A, AFT afterburner 

B burner 

C inner compressor 

COM combustor 

D fan duct 

F first or fan compressor 



M core nozzle 

NOZ nozzle 

OB overboard 

T total 

THP inner (high pressure) turbine 

TLP outer (low pressure) turbine 

Engine Symbols 

bleed, lbm/sec 

ratio of corrected speed to design corrected speed 
turbine delta enthalpy, Btu/lbm 

turbine delta enthalpy (temperature corrected), (H- n - H p/T^, Btu/°R/lbm 
pressure drop, AP/P 
temperature change, °R 
efficiency 

ram recovery, ^ 2^1 
horsepower extracted 
fractional bleed 
percent of design shaft speed 
pressure ratio 

turbine flow function, lbnJ|/°R / I (psia)(sec) 
airflow, lbm/sec 
fuel flow, lbm/sec 
gas flow, lbm/sec 
ratio of pressure ratios 

Miscellaneous Symbols 

A area, ft 

ALTP altitude, ft 


BL 

CN 

DHT 

DHTC 

DP 

DT 

ETA 

ETAR 

HPEXT 

PCBL 

PCN 

PR 

TFF 

WA 

WF 

WG 

Z 
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AM 

BYPASS 

C 

CF 

cs 

cv 

DEL 

DS 

DUM 

FG 

FGM 

FGP 

FN 

FRD 

GU 

ITRYS 

LOOP 

LOOPER 

SFC 

TOLALL 

VA 

VJ 


ALTP 

AM 

AM6 

AM23 


Mach number of aircraft 

bypass ratio (fan duct air /air entering intermediate compressor) 

when following component symbol, signifies "corrected” 

correction factor, when used following component symbol 

ambient speed of sound, ft/sec 

nozzle velocity coefficient 

delta degradation coefficient 

design value 

dummy value 

gross thrust, lbf 

momentum thrust, lbf 

pressure thrust, lbf 

net thrust, lbf 

ram drag, lbf 

initial or guessed values 

number of loops through engine before quitting 
variable counter 

number of loops through engine counter 
specific fuel consumption, lbm/lbf/hr 
tolerance on convergence 
velocity of aircraft, ft/sec 
jet velocity, ft/sec 


Input Symbols 


altitude, ft 

Mach number of aircraft 

design afterburner entrance Mach number 

design duct- burner entrance Mach number 
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AM55 

A6 

A8 

A28 

CNHPDS 

CNLPDS 

CVDNOZ 

CVMNOZ 

DELFG 

DELFN 

DELSFC 

DPAFDS 

DPCODS 

DPDUDS 

DTCODS 

ETAA 

ETAADS 

ETABDS 

ETACDS 

ETAD 

ETAFDS 

ETAR 

ETHPDS 

ETLPDS 

FAN 

HPEXT 

IAFTBN 

IAMTP 

ID BURN 

IDCD 


design low-pressure-turbine exit Mach number 

2 

area at afterburner entrance (calculated from AM6), ft 

2 

main nozzle throat area (can be changed at off-design), ft 

2 

fan duct nozzle throat area (see A8), ft 
design corrected speed - inner turbine 
design corrected speed - outer turbine 
nozzle thrust coefficient (tabular lookup) 
nozzle thrust coefficient (tabular lookup) 
gross-thrust delta degradation multiplier 
net-thrust delta degradation multiplier 
specific-fuel-consumption delta degradation multiplier 
afterburner design pressure drop, AP/P 
combustor design pressure drop, aP/P 
duct design pressure drop, AP/P 

combustor design temperature increase (automatically set to T4 - T3), °R 

afterburner efficiency (not required) 

afterburner efficiency at design 

combustor efficiency at design 

inner compressor adiabatic efficiency at design 

duct- burner combustion efficiency 

front (outer) compressor adiabatic efficiency at design 

inlet pressure recovery (ram recovery) 

high-pressure- (inner) turbine design adiabatic efficiency 

low-pressure- (outer) turbine design adiabatic efficiency 

logical control for fan and turbojet engines 

horsepower extraction 

index on afterburning desired 

index on ram or inlet operation desired 

index on duct burning desired 

duct nozzle convergent-divergent when IDCD equals 1 (design or off-design) 
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IDES 

IDUMP 

IGASMX 

IMCD 

ISPOOL 

ITRYS 

MODE 

NOZFLT 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLLP 

PCBLOB 

PCNC 

PCNCDS 

PCNF 

PCNFDS 

PRCDS 

PRFDS 

PS55 

P2 

TFHPDS 

TFLPDS 

TOLALL 

T2 

T24 


index for design point; must be set equal to 1 to design engine; zeroed auto- 
matically 

index for dumping of error matrix 

index for mixed-flow or non- mixed-flow turbofan 

main nozzle convergent- divergent when IMCD equals 1 (design or off-design) 

index for number of compressors for turbojet engines 

index for maximum number of iterations 

independent variable designator for engine operation 

index for floating main or duct nozzle 

ratio of compressor bleed to turbines to compressor airflow 

ratio of compressor bleed leaked into fan duct to total compressor bleed flow 

ratio of bleed from outer compressor to fan airflow dumped overboard 
(i. e. , leakage) 

fraction of PCBLC used for high-pressure (inner) turbine (cooling) 

fraction of PCBLC used for low-pressure (outer) turbine (cooling) 

ratio of inner compressor bleed to compressor airflow (overboard for cus- 
tomer use) 

inner- compressor shaft speed as a percent of design shaft speed 

design inner-compressor shaft speed 

outer-compressor shaft speed as percent of design 

design outer-compressor shaft speed as percent of design shaft speed 

design inner-compressor pressure ratio 

design outer- compressor pressure ratio 

static pressure at low-pressure-turbine exit 

compressor-face total pressure (for nonstandard days only), atm 

design inner-turbine flow function 

design outer -turbine flow function 

tolerance on error matrix 

compressor-face total temperature (for nonstandard days only), T1 + T2 
duct-burner exit temperature, °R 


145 



T4 

T4DS 

T7 

T7DS 

WACCDS 

WAFCDS 

WFA 

WFB 

WFBDS 

ZCDS, ZFDS 


combustor exit temperature, °R 
design combustor exit temperature, °R 
afterburner exit temperature, °R 
design afterburner exit temperature, °R 

design inner-compressor corrected airflow (turbofans only), lbm/sec 

design outer -compressor corrected airflow, lbm/sec 

fuel flow rate to afterburner (IAFTBN = 2 only), lbm/sec 

fuel flow rate to main burner (MODE = 2 only), lbm/sec 

design fuel flow rate to main burner (MODE = 2 only), lbm/sec 

design ratio of inner compressor and fan compressor pressure ratios, 
respectively; equals pressure ratio at design point on design speed line 
minus value of pressure ratio of lowest point on speed line divided by 
high (surge) value minus low value of pressure ratio on the design speed 
line 


Output Symbols 


1 


A 

ALTP 

AM 

BLC 

BLF 

BLHP 

BYPASS 

CNC 

CNF 

CNHP 

CNHPCF 

CNLP 


area, flr 
altitude, ft 
Mach number 

bleed flow out of compressor, lbm/sec 

bleed flow out of fan (dumped overboard), lbm/sec 

bleed flow into high-pressure turbine, lbm/sec 

ratio of airflow into fan duct to airflow into inner compressor 

corrected shaft speed - inner compressor 

corrected shaft speed - fan 

corrected shaft speed - high-pressure turbine, PCNC 
corrected speed - high-pressure-turbine correction factor 
corrected speed - low-pressure turbine, PCNFy^T\ n 


some symbols, such as T4, are followed by station numbers, see appropriate fig- 
ure for each engine to determine station numbers. 
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CNLPCF 

CVDNOZ 

CVMNOZ 

DHHPCF 

DHLPCF 

DHTC 

DHTCHP 

DHTCLP 

DHTF 

DPCOM 

DPDUC 

DTCOCF 

ETAB 

ETABCF 

ETAC 

ETACCF 

ETAD 

ETAF 

ETAFCF 

ETATHP 

ETATLP 

ETHPCF 

ETLPCF 

FAR 

FG 

FGM 

FGP 

FN 


corrected speed - low-pressure-turbine correction factor 
velocity coefficient of fan nozzle 
velocity coefficient of core nozzle 

high-pressure-turbine delta enthalpy correction factor 

low-pressure-turbine delta enthalpy correction factor 

work done by high-pressure turbine, Btu/lbm 

enthalpy change temperature corrected - high-pressure turbine, 
Btu/ °R/atm/lbm 

enthalpy change temperature corrected - low-pressure turbine, 
Btu / °R/atm /lbm 

work done by low-pressure turbine, Btu/lbm 

{ AP/P) com bustor 
(AP/P)fan duct 

temperature-rise-across-combustor correction factor 

combustor efficiency 

combustor efficiency correction factor 

inner-compressor adiabatic efficiency 

inner- compressor efficiency correction factor 

duct- burner efficiency 

fan adiabatic efficiency 

fan efficiency correction factor 

high-pressure-turbine adiabatic efficiency 

low-pressure-turbine adiabatic efficiency 

high-pressure-turbine efficiency correction factor 

low-pressure-turbine efficiency correction factor 

fuel-air ratio, f/a 

gross thrust, lbf 

momentum thrust, lbf 

pressure thrust, lbf 

net thrust, lbf 
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FRD 

HPEXT 

P 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLLP 

PCNC 

PCNF 

PRC 

PRCCF 

PRF 

PRFCF 

PS 

SFC 

T 

TFFHP 

TFFLP 

TFHPCF 

TFLPCF 

T2DS 

T21DS 

V 

VA 

VJD 

VJM 

WA 

WA3CDS 

WAC 


ram drag, lbf 
horsepower extracted, hp 
pressure, atm 

fraction of compressor exit air bled for cooling or lost to cycle 
fraction of bled air out of compressor which leaks into fan duct 
fraction of fan exit airflow lost overboard 

fraction of compressor bleed air put into high-pressure turbine 

fraction of compressor bleed air put into low-pressure turbine 

inner compressor shaft speed as fraction of design 

fan compressor shaft speed as fraction of design 

pressure ratio of inner compressor 

pressure-ratio-of-inner-compressor correction factor 

pressure ratio of fan or outer compressor 

pressure-ratio-of-fan-or-outer-compressor correction factor 

static pressure, atm 

specific fuel consumption, lbm/(lbm/hr) 

temperature, °R 

high-pressure-turbine flow function, (lbm) (y°R )(in. 2 ) ! (sec) (lbf) 

low-pressure-turbine flow function, (lbm)^/°R^(in. 2 ) (sec) (lbf) 

high-pressure-turbine flow function correction factor 

low-pressure-turbine flow function correction factor 

design exit temperature of fan, °R 

design exit temperature of inner compressor, °R 

velocity, ft/sec 

velocity of aircraft, ft/sec 

fan duct exhaust velocity, ft/sec 

core exhaust velocity, ft/sec 

airflow, lbm/sec 

corrected airflow in combustor at design, lbm/sec 
inner-compressor airflow, lbm/sec 
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WACC 

WACCF 

WAD 

WAF 

WAFC 

WAFCF 

WFA 

WFB 

WFD 

WFT 

WG 

WGT 

ZC 

ZF 


inner-compressor corrected airflow, lbm/sec 

inner-compressor corrected airflow correction factor 

fan duct airflow, lbm/sec 

fan airflow, lbm/sec 

fan corrected airflow, lbm/sec 

fan corrected airflow correction factor 

fuel flow rate to afterburner, lbm/sec 

fuel flow rate to combustor, lbm/sec 

fuel flow rate to duct burner, lbm/sec 

total fuel flow rate, lbm/sec 

gas flow rate, lbm/sec 

total gas flow rate, lbm/sec 

ratio of inner compressor pressure ratios 

ratio of fan pressure ratios 
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TABLE I. - VARIABLES AND ERRORS 



Two-spool turbofan 

Mixed- flow turbo- 
fan 

Two-spool turbojet 

One -spool turbojet 

Variable 1 

ZF 

ZF 

ZF 

ZF 

Variable 2 

PCNF 

PCNF 

PCNF 

PCNF 

Variable 3 

zc 

ZC 

ZC 

TFFLP 

Variable 4 

PCNC 

PCNC 

PCNC 


Variable 5 

TFFHP 

TFFHP 

TFFHP 


Variable 6 

TFFLP 

TFFLP 

TFFLP 


Error 1 

TFHCAL - TFFHP 

TFHCAL - TFFHP 

TFHCAL - TFFHP 

TFLCAL - TFFLP 

TFHCAL 

TFHCAL 

TFHCAL 

TFLCAL 

Error 2 

DHTCC - DHTCHP 

DHTCC - DHTCHP 

DHTCC - DHTCHP 

DHTCF - DHTCLP 

DHTCC 

DHTCC 

DHTCC 

DHTCF 

Error 3 

TFLCAL - TFFLP 

TFLCAL - TFFLP 

TFLCAL - TFFLP 

P7R - P7 

TFLCAL 

TFLCAL 

TFLCAL 

P7R 

Error 4 

DHTCF - DHTCLP 

DHTCF - DHTCLP 

DHTCF - DHTCLP 


DHTCF 

DHTCF 

DHTCF 


Error 5 

P25R - P25 

PS25 - PS55 

WAF - WAC - BLF 


P25R 

PS25 

WAC 


Error 6 

P7R - P7 

P7R - P7 

P7R - P7 







P7R 

P7R 

P7R 


Matrix size 

6X6 

6X6 

6x6 

3x3 
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TABLE n. - INPUTS REQUIRED FOR BASIC CYCLES 


Variable 

Units 

Definition 

Two-spool 

turbofan 

Mixed-flow 

turbofan 

Two- spool 
turbojet 

One-spool 

turbojet 

PRFDS 


Fan pressure ratio 

Yes 

Yes 

Yes 

Yes 

WAFCDS 

lb/sec 

Fan corrected airflow 









ETAFDS 


Fan efficiency 









ZFDS 


Design Z of fan 









PCNFDS 


Corrected speed of fan 









PR CDS 


Compressor pressure ratio 







No 

WACCDS 

lb/see 

Compressor corrected airflow 





No 



ETACDS 


Compressor efficiency 





Yes 



ZCDS 


Design Z of compressor 









PCN CDS 


Corrected speed of compressor 







i 


ETABDS 


Combustor efficiency 







Yes 

DPCODS 


Combustor pressure drop, AP/P 







Yes 

T4DS 

°R 

Turbine inlet temperature 







Yes 

TFHPDS 

lbV°R 

High- pres sure -turbine flow function 







No 


(sec)(psia) 










CNHPDS 


Corrected spded - high-pressure turbine 







No 

ETHPDS 


Efficiency - high-pressure turbine 



i 




No 

TFLPDS 

lW°R 

Low- pres sure -turbine flow function 


i 





Yes 


(sec)(psia) 










CNLPDS 


Corrected speed - low-pressure turbine 







Yes 

ETLPDS 


Efficiency - low-pressure turbine 







Yes 

DPDUDS 


AP/P of fan duct 





No 

No 

DPAFDS 


AP/P of afterburner 

\ 


1 


Yes 

Yes 

FAN 


Logical variable 

.TRUE. 

. TRUE. 

. FALSE. 

. FALSE. 

ISPOOL 


Number of spools 

2 

2 


l 


1 
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Figure 2. - Schematic of mixed-flow afterburning turbofan. 
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BLF HPEXT 


Figure 3. - Schematic of two-spool turbojet 


BLOB 



BLF 


HPEXT 

Figure 4. - Schematic of one-spool turbojet 




Figure 5. - Flow chart for GENENG computer program. 















































Afterburner combustion efficiency 
degradation, percent 



(a) Generalized afterburner combustion efficiency as func- 
tion of fuel -air ratio. 



Ratio of afterburner inlet Mach number to design 
afterburner inlet Mach number 



Ratio of afterburner inlet total pressure to design afterburner 
inlet total pressure 


(b) Efficiency correction factor as function of after- (c) Efficiency correction factor as function of afterburner 

burner inlet Mach number. inlet total pressure ratio. 


Figure 9. - Example of a generalized afterburner combustion efficiency performance map. 



Figure 10. - Performance map for nozzle, giving velocity coefficient 
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